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Arte byte a byte 

PARA TODOS 
CON "ART STUDIO" 



Probamos un sensacional 
programa para creacion de 
dibujos y graficos, que convierte 
al Amstrad CPC en un artista 
inteligente al ale xnc< de todo el 
mundo, a golpe de joystick o 
raton. No e a imprescindible 
po < i conocimientos de dibujo. 



FACTURACION 
PARA EL PCW (IV) 


INFOBYTES 

CATALOGO 
DE SOFTWARE 


fflmPBESS 




VOLCADO DE PANTALLA 
EN PAPEL 
PARA TODAS 
LAS IMPRESORAS: 
«TASCOPY» 

La herramienta que hacia falta 
para obtener «hardcopys» de 
cualquier cosa en todas las 
impresoras, analizada en 
profundidad por AMSTRAD 
Semanal. 



LA AVENTURA DE LOS 
GOONIES (AMSTRAD CPC) 

elicula mas famosa de 
ielberg, recreada byte a byte i n 
la pantalla del Amstrad con 
sorprendente aoerto. Lnchjidas 
toda una serie de ideas trucos 
para jugar mejor en nuestro 
comentario del juego. 
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JL i uestra dilatada experimcia en el mango de ordenadorn Amstrad 
dimmte muchns floras cada dia, nos ha llevadu a la conclusion de que sicmpre 
se plantean los mismos pmhlemas en su uso. Es dear, existen um sene de 
dificuttades tipicas, y para cada una de ellas hay una solucion practica que 
' obvia el prohlema. De estc tenia trata rmestro lam principal de portada. y 
eslamos seguros de que su ledum milliard util a todos los usuanos, 
especialmenk a los que empiezan. Tambien para todos los usuanos, sin 
exception, mtd pensando «Art Studio». Se trata del programa mas impresionante 
que hemos visto para crear dibujos y todo tipo de graficos en un Amstrad 
CPC. Lo mas especlacular es su mango: todo a base de joystick o raton; el 
teclado, para este programa, se muestra corrw algo completamente obsoleto. En 
nuestra seccion dc «Aiundo del CPC«, malizamos esta semema un programa 
llamado «Tascopy». que permite volcar m papd de impresora la panlalla del 
Amstrad en cualqmer memento, Su cttmctenstica mas util estriba en que 
funciona con prdeticamente todas las impresoras del mercado. 

Los prngrarnadores avidns de buenos tmguajes, sin duda encontraran util la 
prueba del «Hisoft PasrnU , el compilador dc Pascal mas fcicil dc usar que 
hemos visit) rumen, con graficos de tortugci incluidos. Continuamos con el 
programa de facturacion para el FCT1, que junto con nuestras seccwnes de 
«lnfobytes» y «Serie Oro», derm el contenido del presente numero. 

Una cosa mas: no se pierda el andlisis del juego «Los Goomes». basado en 
el popular film de Spielberg. Merece la pena. 
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Guia del lector: 

Soiuciones practicas 
a ios problemas tipicos 


Nuestra dilatada experiencia con los ordenadores Amstrad nos ha hecho descubrir 
todo un cumulo de dificultades y problemas a los que el usuario debe hacer f rente 
que podriamos llamar tipicos, porque se repiten una y otra vez a lo largo de todas 
las maquinas de la gama. Resultan especialmente frustrantes cuando la persona que 
se enfrenta a la maquina entra dentro de la nebulosa categoria de usuario novel. 
Vamos a tratar de enumerar los mas caracteristicos, y de ofrecer soiuciones para 
obviarlos, en un intento de resolver dificultades a todo el mundo, novel o no. 


c 

intas que no funcionan, discos de 
reputation intachable que de pronto se sueltan el 
pelo, negandose a cargar programas escritos en 
Basic compatible con el CPC 464 y el 6128 que 
corren en el primero, pero en el segundo no... 


La serie de catastrofes que laceran las horas 
de supuesto entrenamiento y «trabajo 
produetivo» del usuario, en su trato diario con 
un Amstrad, podrian compendiarse en forma de 
lista lo bastante larga para cubrir de oprobio a 
las «paginas amarillas». Lo mas caracterfstico, y 
desagradable, de estas calamidades es que 












golpean de improviso, como la furia divina, y la 
mayorfa de las veces no suceden por culpa del 
usuario, ni siquiera del ordenador. Mas bien 
tiene lugar un malentendido entre ambos. 

Por ejemplo, la cinta conteniendo nuestro 
juego favorito, a la que hemos seguido la pista 
como un sabueso desde que se rumoreo su 
pronta salida al mercado, tras colocarla con 
manos tremulas en el cassette..., no carga. 

Imagfnense el cuadro. La ilusion 
transformandose en ira, las caras llorosas de los 
ninos. Desolador. Naturalmente, para escarbar 
mas en la herida, el resto de las cintas 
conteniendo programas hechos por nosotros, o 
mcluso otros comerciales, si que cargan: a la 
perfection, varias veces. Docenas de veces. 

En ocasiones, basta una rapida visita al 
comercio donde adquirimos el programa para 
arreglar las cosas. El prurito profesional y una 
cara de pocos amigos obran milagros en los 
vendedores mas endurecidos. No obstante, lo 
peor viene cuando nuestro comerciante prueba 
la cinta en su ordenador..., y carga 
perfectamente. Su sonriente cara de se lo dije nos 
pasa por encima como una apisonadora. Por 
supuesto que se ofrece de mmediato a 
cambiarnos la copia de la cinta por otra nueva, 
pero indicando, como de pasada, que vamos a 
enfrentarnos con el mismo problema. Y, de 
nuevo en casa, la ominosa pro fee fa se cumple: 
tampoco carga. ,-Que hacer? Bien, la solucion es 
bastante simple. A estas alturas, es evidente que 
la malhadada cinta esta bien grabada y carece 
de defectos visibles. Lo unico que hay que hacer 
para solucionar nuestro problema es..., ajustar 
el azimut del cassette. 

Me explico. El mecanismo de lectura-escritura 
en una cinta es de una claridad meridiana: 
existen dos ejes que la arrastran hacia adelante 
o hacia atras, donde encajan los orificios que 
tienen todas las cintas. Perpendicular a ellos, se 
encuentra la «madre del mordero»: el cabezal de 
lectura-escritura. 

Teoricamente, se encuentra a la misma altura 
en todos los ordenadores Amstrad, pero solo 
teoricamente. En realidad, existen pequenas 
diferencias de ordenador a ordenador y, cuando 
una casa de software graba una cinta de 
cassette, logicamente lo hace pensando en que el 
cabezal de lectura-escritura se encuentra a la 
altura correcta, usando como piedra de toque una 
maquina perfectamente calibrada. 

Si el cabezal de lectura-escritura se encuentra 
demasiado alto o demasiado bajo, el programa 
no cargara con correction, y aparecera toda una 
caterva de errores enigmaticos del tipo «Read 
error b», o algo parecido. Este tipo de cosas 
pueden sucederle perfectamente con el uso, 
aunque no pasara en todos los ordenadores; solo 


INICUACION 

en algunos, y, por desgracia, no hay forma de 

averiguarlo al comprar. 

Por tanto, si su ordenador se desvfa 
demasiado de lo previsto, tendra problemas, 
pero solo con algunas cintas, aquellas cuya 
tolerancia sea en extremo crftica. No con las 
que usted mismo haya grabado, por supuesto. 

En cualquier caso, la solucion es sencilla, 
aunque tediosa. Hacia la parte central del 
cassette del 484, vera un orificio por el que cabe 
justo un pequeho destornillador. Sirve para 
variar la altura del cabezal, es decir, ajustar el 
azimut. Por el antiguo metodo de «prueba y 
error», variando la altura del cabezal e 
intentando cargar el programa, conseguira sin la 
menor duda jugar a ese juego que tanto ha 
estado esperando, o usar su aplicacion de 
gestion casera favorita, o introducirse en los 
u apasionantes vericuetos de ese nuevo lenguaje 
que va a abrirle las puertas de la programacion. 


Todos los usuarios se enfrentan a las 
mismas dificultades tipicas, que poseen 
soluciones clasicas 


En cualquier caso, nuestra experiencia con los 
Amstrad ha demostrado que este tipo de 
problemas suceden solo de tarde en tarde, en 
especial con programas comerciales que emplean 
metodos de carga o protecciones relativamente 
esotericas, que afectan a la velocidad de carga, 
tales como los sistemas turbo. 

Observese, tambien, que todo lo anterior se 
aplica a los usuarios del 6128 que deseen usar 
su ordenador como diversion, pues la gran 
mayorfa del software ludico se encuentra en 
cinta de cassette y no en disco, por ahora al 
menos. 

Siguiente pregunta: ,:que pasa cuando el 
famoso cabezal se encuentra a la altura correcta, 
la cinta esta bien grabada y, sin embargo, no 
carga? 

En AMSTRAD Semanal probamos 
programas en cinta y en disco casi a diario, y 
nos encontramos a menudo con este problema. 
Tras bastantes intentos infructuosos, alguien, en 
un momento de feliz inspiration, descubrio el 
metodo medieval para el arreglo de cintas 
recalcitrantes, magnffico en su tosquedad. 
Consiste en aplaudir las cintas. 

Me explico de nuevo. Hoy en dfa, las cintas 
de cassette se fabrican en masa, miles de copias 
de una sola vez. Muchas veces, el rollo de cinta 
sale de las maquinas de production apelmazada, 
es decir, con palabras tecnicas, experimenta una 
desusada resistencia a la traction, a girar, y la 
fuerza que ejerce el Amstrad para mover la 
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Existe un metodo medieval para arreglar 
cintas de cassette rebeldes, tosco, pero 
seguro y eficaz 


cinta, al intentar cargarla, es msuficiente. Gira, 
pero no a la velocidad adecuada, y ocurren 
errores de lectura, el conocido «Read error...» 

Resulta que, para remediar esto, en la 
inmensa mayoria de los casos basta con 
propinarle a la cinta unos golpes energicos y 
sostenidos contra la palrna de la mano, durante 
unos segundos. De esta forma, la cinta se 
descarga y se carga a la perfeccion. Ya se que 
un metodo tan carente de sutileza, en plena era 
informatica, despierta como mmimo la 
desconfianza, tal vez la hilaridad. y suena a 
inspiracion de kinder garden. Sin embargo, el 
truco descansa en la mas implacable logica, si 
uno se lo piensa despacio, y desde luego, 
funciona. 

Resumiendo. Cuando una cinta de cassette 
no carga. y sin embargo esta bien grabada: 

Ajustar el azimut del cassette, a golpe de 
destornillador. 

Recurrir al metodo medieval, clavo ardiendo 
de los desesperados. 

Si despues de experimentar con ambos 
metodos, la cinta sigue negandose a funcionar, 
podemos arriesgarnos a sentar catedra: la cinta 
no esta bien grabada. 


Problemas con los discos 

Es el momento de introducirse, con la 
conciencia tranquila, en el mundo mucho mas 
sosegado y relajante de los discos. Estos 
ingemosos sistemas poseen una bien ganada 
reputacion de rapidos, fiables, resistentes, en 
fin, de no funcionar tan a salto de mata como sus 
venerables ancestros, las cintas de cassette. Sin 
embargo, los manuales de Amstrad estan llenos 
de aterradoras filipicas que amenazan con todo 
tipo de desgracias a los infelices datos que 
duermen en los discos, si a estos no se les 
somete a un autentico tratamiento de guante 
bianco. Todas las circunstancias que convierten 
un pedazo de madera en una mesa de trabajo se 
confabulan para llevar al atribulado usuario de 
discos por la calle de la amargura: que si la luz 
(cuidado con los mecheros), que si los campos 
magneticos que si no deben colocarse los discos 
apilados, etc. Ni siquiera la reina de Saba se 
hizo merecedora de tan exquisito trato. 

Senores, estos, es una exageracion. En 
AMSTRAD Semanal, estamos hartos de usar 
los discos contra las reglas, y jamas nos ha 
ocurrido nada. Hay que cuidar los discos, pero 
con una medida. 


No obstante, si hay algo que tiene todas las 
de ganar a la hora de destruir un disco, y que 
los manuales no destacan por encima de los 
demas: los golpes. La caida de un disco al suelo 
desde una mesa posee todas las papeletas para 
convertirlo en un posavasos, o algo igualmente 
inutil, y tambien lo decimos por experiencia. No 
siempre sucede, pero tenga muchisimo cuidado en evitar 
los golpes y caidas con los discos. 

Deciarnos al principle de este articulo que, a veces, 
los discos se sueltan el pelo y de pronto, sin causa 
aparente, se niegan a cargar. Reintentarlo no 
sirve de nada, y el unico premio que obtenemos 
a nuestros esfuerzos es el impersonal «Drive A: 
Read fail». 

Puestos de esta forma entre la espada y la 
pared, aparte de mesarnos las barbas, podemos 
hacer algunas cosas que funcionan cast siempre. 
El ominoso factor de incertidumbre descansa en 
el hecho de que hemos descubierto que estos 
«trucos» van bien, pero, rnea. culpa, no sabemos 
del todo por que. 

El primer intento consiste en hacer un 
catalogo del disco. Asi de simple. En la inmensa 
mayoria de los casos, si el comando «Cat» traga. 
el disco se arregla misteriosamente y ya 
podemos cargar y ejecutar el problema que se 
nos antoje. 

La segunda, para discos reincidentes, es cargar 
el CPM tecleando «lCMP» y luego teclear 
«DIR», es decir, pedirle al ordenador muy 
educadamente que nos muestre el contenido del 
disco, pero en CPM, como quien no quiere la 
cosa. Mano de santo, oiga. 


De vez en cuando, un disco se niega a 
cargar. La solucion mas simple es hacer un 
catalogo del mismo 

La tercera es mas radical, pero tambien 
mucho mas efectiva. Consiste en el expeditivo 
metodo de apagar el Amstrad, esperar unos 
momentos, y volverlo a encender. El duende 
que acecha en la trastienda del ordenador 
decide que ya esta bien de bromas y permite 
que la unidad de disco, y el disco mismo, 
funcionen como Dios manda. 

En todos los casos en los que las recetas de 
brujena anteriores no han funcionado, un 
atento examen del disco con programas al 
efecto, monitores de disco y cosas asi, nos ha 
demostrado que habia pistas o sectores danados. 

Por cierto, a colacion de esto, tenemos en 
reserva otra receta casera que viene como anillo 
al dedo; es la siguiente: cuando todo falle, borre 
algo del disco. 

Por razones que explicaremos en seguida, el 
comando « | ERA» funciona practicamente 
siempre. 
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Encontrara quc, tras la ejecucion sumaria de 
algun fichero inutil, el disco vuelve a funcionar 
de nuevo. Recordemos el mensaje de error: 
«Drive A: Read fail», o sea, error de lectura. 

A veces, esto quiere decir que el disco tiene 
pistas o sectores danados, pero solo para 
lectura, no para escritura, y da la casualidad de 
que en ellos se ha grabado el directorio del 
disco, que es donde la maquina trata de 
econtrar un programa cuando usted le da la 
orden «LOAD» o «RUN». No tienen por que 
ser aquellos relativos al programa o fichero, la 
zona ocupada por el directorio del disco se 
reorganiza, y en el proximo intento la zona 
conllictiva ya no esta en uso. 

Resumiendo: 

Evite que los discos reciban golpes fuertes 
o caidas. Ahi esta el verdadero peligro de 
estropearlos. 

Cuando un disco, de repente, se niega a 
cargar: 

Haga un «CAT» del disco. 

Pase a CPM y realice un «DIR». 
Apague el ordenador, espere unos 
momentos y vuelva a encenderlo. 
Borre un fichero o ficheros no 
esenciales del disco. 

Por ultimo, a guisa de ultimo cartucho, copie 
el disco rebelde en otro virgen, mediante el 
comando «CPM» llamado «Disc:kit», o su 
equivalente «Discopy» en el caso del CPC 464 e 
ignore los posibles mensajes de advertencia en 
cuanto a sectores y/o pistas danadas. 

Programas que no funcionan 
en un 464 

Bien, cerremos definitivamente los tratados de 
nigromancia y vamos a centrarnos en otro tema 
mucho mas mensurable: como conseguir que un 
programa escrito para el CPC 6128 funcione en 
un CPC 464. 

Los problemas que se plantean en este asunto 
son dos, de indole diferente, pero que pueden 
mezclarse para complicar aun mas las cosas; 
vamos a intentar explicar ambos y dar una 
solucion. 

El Basic del 6128 posee todo un cumulo de 
nuevos comandos que no existen en el 464. en 
general relacionados con los graficos. La 
solucion es lacil: AMSTRAD Semanal, en el 
numero 42, pagina N C4, publico una serie de 
rutinas en Codigo Maquina, que el usuario 
puede emplear aunque no tenga conocimiento 
en absoluto de dicho lenguaje, las implementan 
los comandos que faltan con minimas 
diferencias. Primer problema resuelto. 
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Program cargador 


10 REM Upgrade 
20 REM POR R.A.W. 

30 REM <c> MICROHOBBY-AMSTRAD 
40 REM *** CALL &A000 PARA ACT I VAR 

UTILIDAD *** 

50 MEMORY S.9FFF: d i r ec c i on=t< A000 

60 FOR i=l TO 60 

70 surname:READ codigo*,chequeo* 

80 FOR j = l TO 21 STEP 2 

90 byte=VAL ( “Sa’+MID* (codi go*, j, 2)) 

100 POKE direccion,byte 

110 suma=suma+byte:direccion=*direce 

ion+T 

120 NEXT 

130 IF sumaOVAL<"S<”+chequeo*) THEN 
PRINT "Error de datos en la lines 
"5140+i*10 
140 NEXT 

150 DATA 018CA1ED43E9BD2185A122,36D 
160 DATA 0FBC3EC3320EBCCD11BC32,494 
170 DATA 8BA10121A021A8A0C3D1BC,5A7 
180 DATA 4DA0C319BBC3C4A0C3CEA0,6DC 
190 DATA C3D8A0C3DEA0C301A1C31C,6C0 
200 DATA A1C361A1C367A1C36DA1C3,6C5 
210 DATA 73A1C379A1C37FA1C3DEA1,716 
220 DATA 4652414DC5475241504849,3A6 
230 DATA 43532E50415045D2475241,396 
240 DATA 50484943532E5045CE434C,397 
250 DATA 4541522E494E5055D4434F,3AB 
260 DATA 50594348D2435552534FD2,464 
270 DATA 4D4153CB4D4F56C54D4F56,455 
2B0 DATA 45D244S241D744524157D2,4C5 
290 DATA 504C4FD4504C4F54D24649,45F 
300 DATA 4CCC000000000021BBA07E,30F 
310 DATA A7C8CD5ABB2318F7457272, SAC 
320 DATA 6F72205253580A0D003DC2,314 
330 DATA ACA0DD7E00C3E4BB3DC2AC,6B4 
340 DATA AODD7EOOC3DEBBCDC9BB38,620 
350 DATA FBC9FE02C2ACAODD6EOODD, 6FA 
360 DATA 6601DD7E027EA7CAACA023,522 
370 DATA 4E2346CDB4BBF5CD60BB02,5D2 
380 DATA F1C3B4BBFE0220A7DD7E02,647 
390 DATA A7F5C47BBBF1CC7EBBDD7E , 7E7 
400 DATA 00A7C481BBCC84BBC9FE02,67B 
410 DATA C2ACA0DD7E02FEFF280FA7,646 
420 DATA 280CDD7E00A7DD7E022809,3C4 
430 DATA 0F30FDCB073242A1C90F38,433 
440 DATA FD1BF5FFFE04C2ACA0DD7E,774 
450 DATA 00CD59BCDD7E02CDDEBBDD,682 
460 DATA 6E04DD6605DD5E06DD5607,435 
470 DATA C9CD43A1C3C0BBCD43A1C3,72C 
480 DATA C3BBCD43A1C3F6BBCD43A1,754 
490 DATA C3F9BBCD43A1C3EABBCD43,7A0 
500 DATA A1C3EDBB32BBA1CFCA8A00,68D 
510 DATA C5D5ES214 2A179A7281D3A,522 
520 DATA 8BA13D281E3D282E79FE03,3BC 
530 DATA 2B07CB0E380BAF18087EE6,37E 
540 DATA 03CB0ECB0EA1E1D1C14FC3,5DB 
550 DATA 6B0C7906040FDCC5A110FA,452 
560 DATA 18EEC80EDBCB9FCBBFC979,6ED 
570 DATA 06080FBCDBA11 OF'A 1BDBCB, b3A 
5B0 DATA OEDBCBBFC93DC2ACAOCDEI,732 
590 DATA BB3296A2CDE7BB329BA2DD.6DD 
600 DATA 7E003295A2CDE4BB3A95A2,5C4 
610 DATA CDDEBBCDC6BBD5ED5391A2,7FC 
620 DATA 2293A2CD11BC3E043B063E,3AF 
630 DATA 0228023E013297A2CD5FA2,3A4 
640 DATA ED42CD3DA220F6D1ED5391,693 
650 DATA A2CD5FA209CD3DA220F73A,576 
660 DATA 96A2CDDEBB3A98A2CDE4BB,77E 
670 DATA C92291A2EB2A93A2CDF0BB,6E0 
6B0 DATA 2A95A2BDC8BCC9ED5B91A2,6E6 
690 DATA E5CDF0BB2A95A2BD2B01BC,660 
700 DATA E1C92A93A22323CD4EA220,52C 
710 DATA F92B2BE52A93A22B2BCD4E,504 
720 DATA A220F92323ED5B91A2CDC0,609 
730 DATA BBE1ED5B91A2CDF 6BB2A91,750 
740 DATA A2AFED4B97A247C9000000,4D2 


AMSTRAD Semanal 7 














El segundo es un tanto mas esoterico, y 

Amstrad no lo advierte oficialmente por ningun 
lado. El 464 no posee unidad de disco, pero se 
le puede incluir una. Cuando se hace esto el 
software que permite funcionar a la unidad 
ocupa una determinada zona de la memoria; 
cuando tecleamos un programa muy largo 
(segun nuestra experiecia mas de 20 K son 
suficientes, en general), de alguna forma la zona 
ocupada por nuestro programa choca con la 
zona ocupada por el programa de la unidad de 
discos. Resultado: el ordenador no da mensaje 
de error alguno, pero, tras grabar el programa 
Basic en el disco, cargarlo de nuevo y listar, 
una o muchas lmeas de programa desaparecen 
misteriosamente, y no funciona. 

La solucion es facil, pero tediosa. Consiste en 
analizar un poco el programa, dividirlo en 
trozos (subrutinas), y cargarlas desde el disco 
mediante la orden «CHAIN» o «CHAIN 
MERGE» a medida que el programa principal 
las vaya necesitando. Actuando de esta forma, 
aunque tengamos un 464, nuestro programa 
puede ocupar todo el espacio disponible en la 
unidad de disco: 170 K, Obviamente, la receta 
es valida para los usuarios de 6128. 

Para evitarse definitivamente problemas 
usando este metodo, es muy recomendable 
grabar las subrutinas en el disco en formato 
“ASCCI”, mediante la orden SAVE 
“nombre”, A. 

Paradojicamente, los usuarios del 464 que no 
tengan unidad de disco, no tendran que 
preocuparse de los programas largos, en 
general. 

Como resultara obvio a esta alturas, ambos 
tipos de incoveniente pueden mezclarse: 
comandos Basic solo del 6128 en un programa 
muy largo. La solucion es, por supuesto, 
mezclar las dos tecnicas descritas: usar nuestro 
programa que implementa los nuevos comandos 
y dividirlo en porciones que se cargaran desde 
el disco mediante “CHAIN”. 

Resumiendo, una vez mas. Para conseguir 
que cualquier programa, por largo que sea, 
corra en un 464, con o sin los nuevos comandos 
del 6128: 


Cualquier programa, por largo que se sea, 
cabe en un 464 gracias al comando 
«CHAIN» 


Usar el programa publicado por 
AMSTRAD Semanal en el numero 42, pagina 

24. 

Examinar, con paciencia, la estructura del 
programa y dividirlo en porciones mas 
pecjuenas. 

Los usuarios del 464 sin disco, en 
principio no tendran que ocuparse de los 
posibles inconvenientes causados por 


programas largos. 

Quedan tan solo dos temas de los que 
hablar, especialmente dedicados de todo 
corazon a todas aquellas personas que acaban 
de adquirir un ordenador Amstrad, llenas de 
ilusion y la esperanza de que su maquina les 
sirva para resolver sus problemas. Suena a algo 
infantil, pero una vez mas, avalados por nuestra 
experiencia, nos atrevemos a asegurar que 
ponen series escollos en el camino del 
principiante. El primero versa acerca del orden 
en el que, segun parece, hay que apagar y 
encender los ordenadores Amstrad. De nuevo, 
los manuales cumplen su funcion de guiar al 
usuario por el mejor camino, pero exageran en 
su celo. 


El verdadero peligro de estropear un disco 
reside en los golpes o caidas. 

Por diversas circunstancias de la delirante 
dinamica que acompana a cualquier semanario 
y que ahora no vienen al caso, nosotros hemos 
encendido y apagado todos los Amstrad de 
todas las maneras posibles, a lo largo de muchos 
meses, y jamas ha pasado nada. Asf que, cuando 
apague su ordenador y se olvide el disco dentro 
de la unidad, o algo parecido, no se preocupe 
demasiado. 

El segundo punto, con el que pretendemos 
cerrar este articulo, es aun mas esencial para la 
persona que empieza. Los manuales tambien lo 
comentan, y esta vez no exageran nada; es 
imposible estropear el ordenador por 
experimentar en el tecleando cosas, 
aprendiendo en definitiva. Ya se que parece la 
conclusion de Perogrullo, pero recordamos 
perfectamente lo que nos paso a nosotros la 
primera vez que desembalamos un ordenador y, 
con infinitas precauciones, lo encendimos. No se 
preoucupe y creanos: usted no puede estropear 
su maquina con facilidad. Le costara muchfsimo 
conseguirlo. 

Para todos aquellos lectores interesados, y que 
no tengan a mano las rutinas que convierten a 
un 464 en un 6128, en cuanto al Basic, 
volvemos a publicar el programa cargador y 
una breve resena del funcionamiento de cada 
comando. 


Lista de nuevos comandos para 
el CPC 464 


| FRAME: Sincroniza el movimiento de los 
caracteres por la pantalla de tal modo que se 
realiza con mucha mayor suavidad 
| GRAPHICS.PEN, tinta: asigna un valor a la 
tinta con la que vayamos a trazar rectas y 
puntos o dara color a los caracteres que se 
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escriban en pantalla tras una instruction TAG. 

| GRAPHICS.PAPER, tinta: lo mismo que el 
anterior, pero para el papel. 

I CLEAR.INPUT: limpia el buffer de teclado 
de caracteres o cadenas indeseadas. 
j COPYCHR, canal, direction de una cadena: 
lee el caracter en pantalla en la position 
indicada por el cursor. Se usa de la siguiente 
manera: 

a$ = chr$(0) 

| COPYCHR,' #3, /gja$ 
print ASC(a$) 

| CURSOR,sistema, usuario: los dos parametros 
pueden valer uno o cero. El primero, cuando 
esta activado, permite que el cursor aparezca en 
la pantalla. El segundo, conmutador del 
usuario, faculta para quitar o poner el cursor. 

I MASK, mascara, primer punto: manipulation 
de graficos mediante plantillas para dibujo de 
rectas. El primer parametro puede valer de 0 a 
255, y el segundo 16 0. 

j FILL, tinta: llena un area de pantalla con el 
color senalado por tinta. 

Los que restan no requieren explication; se 
refieren a dibujo de puntos y rectas respecto a 
un origen absoluto o relativo. Una 
experimentation de minutos aclara su funcion y 
sus diferencias. 

| MOVE, posicionx, posiciony, tinta, modo de 
pantalla. 

| PLOT, posicionx, posiciony, tinta, modo de 
pantalla 


| DRAW, posicionx, posiciony, tinta, modo de 
pantalla 

| PLOTR, posicionx, posiciony, tinta, modo de 
pantalla 

| DRAWR, posicionx, posiciony, tinta, modo de 
pantalla 

Para instalar los comandos, el procedimiento 
es muy sencillo: primero se teclea el programa 
cargador. Luego, ANTES DE EJECUTARLO, 
se salva en el disco y, por fin, se ejecuta con 
CALL &A000. Ya esta. 

Hay otro problema, y es que podemos 
obtener mensajes de error extranos al usar el 
comando Symbol After. Para evitarlos, una vez 
ejecutado con RUN el programa cargador y 
antes de teclear CALL &A000, salvar en el 
disco los bytes de esta forma: 

SAVE “NOMBRE”, B, &A000, &2A0 

Si deseamos ahora usar Symbol After, 
ponerlo segun indica el manual como se quiera 
y, por fin, teclear: 



Es imposible estropear un Amstrad 
tecleando cosas en el. 


















El disco duro 
de Amstrad 
tendra garantia 
en Espana 

Segun las ultimas noticias 
llegadas del otro lado del canal, y 
que hacen referencia a la noticia 
publicada por nosotros en el 
AMSTRAD Semanal numero 68 el 
disco duro de Amstrad, y en 
contra de lo publicado en el 
mencionado numero, si disfrutara 
de garantia. No obstante, dicha 
garantia solo comprendera la 
reposicion de los componentes 
estropeados, sin que esta misma 
cubra los gastos que se originen 
por su instalacion, Ante esta 
situacion Amstrad Consumer 
Electronic recomienda a todos sus 
usuarios britanicos la adquisicion 
de un contrato de mantenimiento, 
que si cubre la mano de obra, por 
un precio comprendido entre las 40 
y las 60 libras anuales, en funcion 
del servicio ofrecido. 

En cuanto a Espana, las cosas 
parecen ser muy distintas. Puestos 
al habla con Indescomp, S.A., nos 
han confirmado que, a traves de su 
propio servicio tecnico, 
garantizaran el equipo de forma 
total y absoluta. y en las mismas 
condiciones que el resto de los 
ordenadores hasta ahora 
comercializados, una vez que la 
configuracion PC-1512 + disco duro 
de Amstrad este a la venta en 
Espana. 

Como recordaran nuestros 
lectores por la noticia aparecida en 
el numero 70, el disco fijo de 
Amstrad no se comercializara en 
Espana hasta el mes de abril. 

Hasta esta fecha, sera Proa, S.A. 
la encargada de su instalacion y 
esta tambien sem la que garantice 
su buen funcionamiento por el 
periodo de un ano a partir de la 
compra. 





Presentados por Idealogic 

Cuatro programas 
de formacion 
profesional 

En su serie de formacion 
profesional para Amstrad, Idealogic 
presenta cuatro programas de gran 
utilidad: 

Ideatype, consta de una serie de 
practicas progresivas para aprender, 
ejercitar o, simplemente, perfeccionar 
su tecnica mecanografica. 

Para control de registro, inventarios, 
archivos y clasificaciones, se ha creado 
el programa Idea Base, que puede ser 


utilizado conjuntamente con Ideatext 
para crear documentos. 

Con Idea Mail podra generar 
etiquetas de envio y crear cartas 
personalizadas. 

Y, por ultimo, Idea Text, que es un 
procesador de textos para ordenadores 
personales con cassette o disquette e 
impresora. Edita y formatea textos 
para su copia por impresora o como 
fichero en cinta. 




Los educativos de Tasoft, S.A. 
Estudiar por ordenador 


Para «divertirse» estudiando, la 
empresa Tasoft, S.A., ha creado 
una serie de programas infantiles 
que hacen entrar a la informatica 
en el mundo intelectual, despues 
de haberlo hecho ya en casi todos 
los sectores de la vida cotidiana. 

Cada uno de los cinco 
programas de que consta este aula 
informatica trata una materia 
diferente; funciones vitales del 
cuerpo humano, geometna del 
piano, geometria del espacio, 
Espana y sus recursos, y Espana: 


comumdades y autonomia. 

Con ellos se pretende introducir 
al nino en el mundo de la 
informatica mientras aprende las 
materias incluidas en los planes de 
estudio oficiales. 

Esta serie de programas cuenta 
con varios niveles de test, para una 
o dos personas o para grupos, para 
evitar, de esta manera, el 
aislamiento en el estudio. 

Tasoft, S.A., C/ Guadalquivir, 

7. Tel. 262 95 76. 28002 Madrid 
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Hisoft Pascal 


Victor Prieto 


Un editor sin grandes sofisticaciones, un 
compilador con muchas posibilidades y unos 
buenos grajicos de tortuga, garantizan este 
Pascal de Hisoft. 


El editor 

Estc sc ha disenado atendiendo criterios de 
facilidad dc uso y pensando en reducir cl gasto de 
memoria a la minima expresion, de esta forma sc 
ha conscguido un editor sin grandes 
sofisticaciones, e integrado en el mismo programa 
que el compilador evitando la constitucion tipica, 
en la que compilador y editor se encuentran en 
programas distintos, requiricndo la continua carga 
de estos en memoria para corregir errores. 


Entre los compiladores de los distintos lenguajes existentes para el Amstrad, 
hemos escogido uno de Pascal, de «Hisoft», que sorprende por su potencia, su 
sencillez de uso y sus grajicos de tortuga. 


r 

JLA\ lenguaje Pascal nacio en el ano 1968, 
formulado por Niklaus Wirth del lustituto Federal 
de 'Iecnologia en Zurich, aparecicndo cl primer 
compilador en 1970. Su exito y accptacion por 
todos los programadores posibilitaron el hecho de 
que en 1978 estuvieran disponibles mas de 110 
compiladores diferentes. 

El Pascal es un lenguaje de proposito general, 
extensible a un amplio rango de aplicaciones. A su 
desmesurada potencia de programacion anade la 
cualidad dc ser compacto y facil de aprender, con 
un alto grado de capacidad para la estructuracion 
de los dates, haciendo que el compilador cargue 
con gran parte de los trabajos que estaban 
destinados al programador. 

Con el Pascal de Hisoft, la memoria utilizada al 
implantar el compilador se distribuye del modo 
siguiente: 12 K para el almacenamiento del 
compilador, 5 K para el controlador de ejecucion 
y 2 K para el editor. Con este reparto de 
memoria obtenemos un espacio fibre para 
programas y datos de 20 K. 

La version que esta en nuestras manos no 
maneja los 64 K de memoria fibres del 6128, 
motivo por el cual el espacio dcstinado a 
programas y datos tiene la longitud arriba 
especificada. 


Estc esta basado en un sistema de linea, el cual 
permite suprimir y copiar trozos dc linea a partir 
de una determinada position, copiando,despues de 
introducir modificaciones,el resto de la misrna, e 
insertando el texto necesario. 

Contiene los comandos necesarios para in ser tar 
lineas, listar el texto por pantalla o impresora, 
editar lineas, borrar un bloque de lineas 
determinado, renumerar el fichero de texto y 


AA1STRAD Seminal 11 


04 










10 PROGRAM reverseline; 
20 TYPE elemento=RECORD 


30 siguientes "'elemento; 

40 caracterschar; 

50 END; 

60 enlace- A elemento; 

70 VAR anterior,enuso,stack!enlace; 

GO BEGIN 
90 REPEAT 

100 mark(stack); 

110 anterior:=NIL; 

120 WHILE NOT eoln DO 

130 BEGIN 

140 new(enuso); 

150 read(enuso A .caracter) ; 

160 enu5o A .siguientes=anterior; 

170 anteriors=enuso 

180 END; 

190 enuso:=anterior; 

200 WHILE enusoONIL DO 

210 BEGIN 

220 write(enuso A .caracter); 

230 enusos =enuso A .siguiente 

240 END; 

250 writeln; 

260 release(stack); 

270 readln 

280 UNTIL false 

290 END. 


Un ejcmplo de programa en Pascal en el que se aprecian las 
posibilidades de las estructuras de dates. 


busqueda de un literal a lo largo del texto. 

Para modificar una linea cualquiera podemos 
utilizar los siguientes recursos del editor: 

Abandonar la edicion ignorando los cambios 
realizados. 

Recargar el bufer de edicion, volviendo a tener 
la linea como estaba antes de realizar cualquier 
rectificacion y en modo de edicion. 

Listar el resto de la linea desde la posicion de 
cursor. 

Elinnnar el caracter en la posicion de cursor. 

Suprimir todos los caracteres desde el cursor al 
final de la linea. 

Buscar una determinada palabra en la linea y 
sustituirla por otra. 

Insertar caracteres en la posicion de cursor. 

Cambiar el caracter situado en cl cursor. 


Ejecutar el programa en codigo obtenido en la 
compilacion previa. 


Traspasar el codigo objeto obtenido en la 
compilacion hasta el controlador destruyendo el 
compilador y pasarlo a cinta como programa 
ejecutable con nombre de fichero. Este codigo se 
volcara en cinta o disco en formato de fichero 
binario. 

El compilador permite incluir ciertas opciones 
dentro de los comentarios del programa, las cuales 
han de ir precedidas por el signo $, permitiendo: 

Controlar el listado del programa y las 
direcciones del codigo objeto, obteniendo las lineas 
con error o la totalidad de este. 

Efectuar comprobaciones de Overflow, en 
prevision de posibles desbordamientos de la 
capacidad de calculo. 

Detener el programa con la pulsacion de una 
tecla durante la ejecucion del codigo objeto. 

Realizar comprobaciones del espacio ocupado 
por el Stack. 

Comprobacion de que los indices utilizados en 
las variables estan dentro de los limites admitidos. 

Verificacion de rebosamiento en las operaciones 
de comparacion en aritmetica entera con notation 
a complemento a dos. 

Establecer ficheros con nombres de hasta 12 
caracteres, haciendo que se incluya un programa 
fuente de Pascal a partir del final de la linea 
actual. 


Numeros y caracteres 

Los numeros enteros tienen un valor absoluto 
menor o igual que 32767, los numeros mayores a 
este valor han de ser tratados como reales. 

La mantisa de los numeros reales tiene 23 bits 
de longitud, consiguiendose un factor de precision 

de 7 cifras significativas; esta precision se pierde si 
el resultado de un calculo es mucho menor que el 
valor absoluto de sus argumentos. 

El numero real mas grande disponible es de 3.4 
E38 y el mas pequeno el 5.9 E-39. 

Sc puedcn utilizar tambien numeros 
hexadecimales. 

Las cadenas de caracteres pueden tener una 
longitud de hasta 255 elementos. 


El compilador 

La compilacion desde el editor permite las 
siguientes posibilidades: 

Alterar los valores prescritos para omisiones en 
la compilacion ejecucion, arnpliando la tabla de 
simbolos. 

Compilar el texto a partir de un numero de 
linea determinado. 


Sentencias Basic 

Aparte de las instrucciones propias del lenguaje 
Pascal, este compilador incluye una serie de 
procedimientos que funcionan en forma similar a 
como lo hacen ciertas instrucciones de Basic 
utilizadas en el Locomotive Basic. 

Poke: para introducir valores en posiciones de 
memoria. 
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Tout: manda variables hacia cinta o disco. 

Tim: lee valores de la cinta para introducirlos 
en memoria. 

Out: gestiona los Ports de salida del Z-80. 

External: cede la ejecm ion de una tarea a 
programas grabados en ROM, comandos RSX. 

After: ejecuta una rutina despucs de cierto 
espacio de tiempo. 

Every: posibilita el uso de interrupciones. 

Sound, Env, Ent: para el control de los 
parametros de sonido del sintetizador. 

Peek: especifica el contenido de una 
determinada posicion de memoria. 

Inp: para manejar los Ports de entrada del 
Z-80. 

SQ: controla la cola de sonidos. 


10 PROGRAM fibonacci; 

20 VAR numero,result:Integer; 

30 FUNCTION -fi b (number: integer) s integer; 

40 VAR 

50 i:integer; 

60 BEGIN 

70 IF number >2 THEN i s =-fib (number-1)ib (number—2) 
80 ELSE i:=1; 

90 fib:=i; 

100 write(i); 

110 END; 

120 BEGIN 

130 write(’Calculo de la serie de Fibonacci'); 

140 writeln; 

150 write('Dime el numero base: '); 

160 read(numero); 

170 result:=-fib (numero); 

180 write(result); 

190 END. 


Otro ejemplo en el que la esmerada estructuracion del Pascal apoya la 
comprension del programa. 

Remain: calcula el tiempo de intervalo restante 
de cicrto temporizador. 

Las rutinas del firmware pueden ser llamadas 
mediante ciertos procedimientos grabados en el 
disco; estas, disenadas de forma autodocumentada, 
puden ser incluidas directamente en nuestros 
programas para su uso. 

Graficos de tortuga 

El compilador de Pascal viene acompanado en 
su segunda cara por un paquete de graficos de 
tortuga con el nombre de Turtle. 

Este puede ser cargado en el editor y anadirse a 
cualquier programa existente. Se ha introducido el 
simil de la tortuga, en forma similar a la 
construccion de graficos que realiza el Logo, para 
dar una idea mas clara del movimiento que se 
puede realizar con la misma en pantalla, con 
indicaciones de rurnbo, posicion y estela. 

En el movimiento de la misma podemos fijar 
los siguientes parametros: 


Tinta, papel, pluma, posicion, rumbo, posicion 
absoluta, movimiento hacia delante, atras, girar un 
angulo, modo de pantalla, giro a la derecha, giro 
izquierda, arco de circulo y tortuga al centro de la 
pantalla. 

Un excelente complemento al compilador que 
permite realizar ciertos graficos y que aporta una 
nueva dimension a un lenguaje huerfano de 
medios de expresion grafica. 

Instrucciones 

El Pascal de Hisoft viene acompanado de un 
completo manual de instrucciones, fntegramente 
escrito en Castellano, a lo largo del cual se 
describen, capitalo a capitulo, todas las opciones v 
landos de este compilador ocupando un total 
98 paginas. 

La primera seccion del manual esta dedicada a 
la sintaxis v semantica, la seccion 2 habla de los 
identificadores predefinidos, la siguiente de las 
opciones del compilador, otro capitulo esta 
dcdicado integramente al editor, otros apartados 
incluyen: el apendice de errores, palabras 
reservadas e identificadores predefinidos, 
representacion de datos y almacenamiento, 
ejemplos de programas en Pascal, graficos de 
tortuga y rutinas grabadas. 

Todos los aspectos contemplados en el manual 
hacen que el compilador pueda ser exprimido al 
maximo aprovechando toda su potencia. Hemos 
de advertir que este manual esta dirigido a gente 
que tenga contacto con este lenguaje, los novicios 
en esta disciplina deben primero recurrir a un 
librd de Pascal, y con ayuda de los programas 
contenidos en el mismo, ir aprendiendo lo 
rudimentario de este apasionante sistema de 
programacion. 

Conclusiones 

A parte del nombre de la firma y su 
indiscutible proyeccion en el mundo de los 
compiladores, hemos de decir que nos hayamos 
ante una version excelente para aquellos 
programadores que quieran introducirse en el 
mundo del Pascal. 

En cl compilador de Hisoft encontraremos todas 
las caracteristicas estandar de este lenguaje listas 
para ser usadas en nuestro ordenador. Por otro 
lado, la parte dedicada a graficos de tortuga 
posibilita ampliar las aplicaciones del lenguaje. 

Los programadores expertos e introducidos en el 
firmware del Amstrad, pueden utilizarlo a su favor 
mediante los procedimientos incluidos en el disco. 

Si a esto le anadimos la facilidad con la que 
podemos incluir comandos RSX hace que este 
espectro de posibilidades practicamente no tenga 
limites. 

Lo unico que echamos en falta es la existencia 
de una version ampliada que pueda aprovechar las 
posibilidades del 6128. 
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Pantallas vivas en el papel 
con 6 Tascopy 


.55 



Salida par impresora con el programa Tascopy. 


C 

in duda el mas reconocido ha sido cl 
«Tasword», un potcnte proccsador dc textos que 
saca todo el partido al ordenador, asi como a la 
impresora con la quc va a funcionar, obteniendo 
con ella cualqnicr tipo de letra posible. 

La distribution de los programas de Tasman 
Software la lleva a cabo con gran interes de su 
parte Ofites Informatica, y decimos con gran 
interes porque no solo se preocupan de que sus 
programas esten presentes en cualquier punto de 
la geografia de la peninsula iberica —recordemos 
que Olites tambien distribuye en Portugal—, sino 
que adcmas sc molestan en traducir al Castellano 
tanto las instrucciones como el mismo programa 
en si. 


Tascopy: algo mas que un copiador 
de pantallas 

El programa que tratamos en esta seccion cs dc 
una herramienta imprescindible para cualquier 
programador dc Amstrad CPC. Tascopy es un 
copiador de pantallas, lo que sc conoce en el 
lenguaje informatico como «scrcen dump» 

—volcador de pantallas—, quc transforma 
cualquier imagen que se visualiza en la pantalla 
del monitor en copia impresa por la impresora. 

Con el Tascopy se viene a paliar la ausencia de 


p r0 gram». 

AutoV. 

ttistributdor 


ComP at,bl '' d£ 
Sop0rtf 7con NN 

precio 0°" 


Antonio J. Cnadra 

De siempre los programas 
de Tasman Software se han 
ganado a pulso un bue?i 
prestigio entre los que 
utihzan el ordenador para 
trabajar en seno. No solo lo 
dicen los usuarios de los 
Amstrad CPC, sino 
tambien los que cuentan con 
Commodore, AISX, 

Einstein, Sinclair QL y 
Spectrum, asi como los de 
Amstrad PCW. 


Tascopy ftv , at e 
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una tecla tipo «Print Screen» en la serie CPC. 
con quc ya cuentan otros ordenadores de la 
competencia como cualquier compatible PC, 
Sinclair, Spectrum o el mismo Amstrad PCW 
entre otros. 

La copia impresa puede ser llcvada a cabo por 
cualquier impresora con cabezal matricial de 
puntos. Ante la diversidad de esta clase de 
impresoras, el Tascopy esta preparado para 
funcionar sobre 13 modclos dc impresora 
diferentes. Si la impresora que posee el usuario 
no esta especificada en ese indice, se debe ir 
probando «a palos de ciego» cada una de las 13 
opciones hasta dar con la apropiada. 

Asi, por ejemplo, para impresoras como las 
Admate, New Print, CPA 80, o la reciente DMP 
2000 dc Amstrad, hemos encontrado cjuc se 
adaptan perfectamente al tipo Epson FX-80 
(opcion C). 
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Mundo del 

CPC 


Todas las tonalidades de grises 

Tal y como se pucdc ver en su estuche, el 
Tascopy es mcapaz de comenzar a trabajar Para 
ello se debc crear una version eonf'igurada snbre 
otro disco o una cinta de cassette virgen. Los 
pasos que se deben seguir para realizar csa 
version eonf'igurada son los siguientcs: arrancar el 
programa, escogcr cl rnodclo apropiado de 
impresora, responder si la impresora escogida 
necesita para hacer un LF —Line Feed o salto de 
lfnea— cl CHR$ (10) o un GR —Carriage 
Return o retorno de carro, vaciando cl butler de 


colores con los que cucnta el Anistrad. Esta 
posibilidad requicrc gran ateneion del 
programador y un perfecto dominio del 
cromatismo, por lo que recomendarnos dejarlo 
como esta y rccurrir a modificar los colores sobrc 
la pantalla con la ordcn del Basic INK i,j, siendo 
i el numero de la tinta —del 0 al 15 para el 
modo 0,0 al 5 para el modo 1. o bier* 0 6 1 para 
cl modo 2— y | el color deseado entre 0 y 26. 

Asl. para cambiar cl color azul del fondo que da 


impresion. CHR$ (13)— junto con el LF, y si se 
desca modificar algun color prefijado de 
antemano. 

Ante la segunda pregunta, lo mejor es 
decidirse por la segunda option —la mayorfa de 
las impresoras funcionan de esta mancra— v, en 
cl caso de que deje lfneas en bianco dentro del 
dibujo, debemos crear otra segunda version 
eonf'igurada con la otra posibilidad. 

El Tascopy es capaz de realizar una copia 
impresa con toda la gama de tonalidades de 
grises. Cuando se imprime una copia, cada «plot» 
de la pantalla pasa a la impresora segun un 
modelo patron de puntos que depende del modo 
de pantalla utilizado (0,1 6 2) y el color de cada 
«plot». Si por alguna razon el usuario del 
Tascopy no esta satisi'echo con la gama de grises 
prefijada, pucdc redelimrsc cualquicra de los 26 


t seopy es capaz de realizar 

una copia imp resa, eon toda la gama 

de tonaiidadcs de grises 


el Amstrad nada mas arrancarlo por un bianco 
brillantc debemos hacer un IND 0,26. 

Posibilidad de cfecto zoom 

Segun cl modo que se este utilizando, la copia 
impresa aparccera en distintos tamanos. En 
MODE 0, vienc a ocupar una hoja horizontal 
—realiza un «scanner» de izquierda a derccha y 



Salicla por impresora con el progranui Tascopy. 
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Salida por impresora con el programa Tascopy. 


La copia impresa coit la opcion 
“POSTER” cuenta con un mayor 
tamano, por lo cjue se imp rime sob re 
distintas hojas. Esta obligara al usuario 
a cortar y pegar para obtener el poster 
final, con un tamano final de dos o 
cuatro hojas, segiln el modo de pantaila 
( 0 . 1 6 2 ) 


de arriba a abajo—, mientras que en los MODE 
1 y 2 la copia se imprime en posicion vertical 
—con an «scanner» sobre la pantaila de abajo a 
arriba y de izquierda a derecha—. Un problema 
que presenta el Tascopy cs la desproporcion en 
escala vertical y horizontal, con lo cual un cfrculo 
dibujado sobre la pantaila aparccera como una 
elipse en la impresora. 

Hasta aquf queda todo dicho sobre el 
programa COPY del Tascopy. Sin embargo el 
paquete de utilidades incluve otro programa 
denominado POSTER. Su funcionamiento es 
identico al COPY y tambien debemos crear una 
version configurada para su utilizacion. La copia 
impresa cuenta con un mayor tamano —efecto 
zoom— y ante la imposibilidad de introducirla en 
una hoja de papel de impresora, se imprime 
sobre distintas hojas, por lo que el usuario debera 
ocuparse de cortarlas y recomponer el dibujo. En 
MODE 0, la pantaila ocupa un par de hojas 


horizontales y en los MODE 1 y 2 son cuatro 
hojas verticales —cada hoja es un cuadrante de lo 
que esta presente en pantaila—. Despues de 
obtener cada parte de la pantaila, la impresora 
efectua varios saltos de linea en bianco antes de 
empezar con la siguiente; para evitar que 
empiece a dibujar sobre un corte de hoja, se debe 
prefijar en la construccion de la version 
configurada la cantidad de saltos. 

Utilizacion de las versiones configuradas 

Tanto para COPY como para POSTER, las 
versiones configuradas constan de dos partes: un 
fichero Basic cargador y el de Codigo Maquina. 
Una vez arrancada la version configurada se crea 
un comando RSX: jCOPY o jPOSTER, segrin 
la version utilizada. Una vez cjue haya 
respondido el ordcnador con el tfpico «Ready» ya 
esta dispuesto a aceptar y volcar una pantaila. 

Para ello debemos dar una orden del tipo: 

LOAD”jnombre-pantalla’’,&C000: jCOPY (o 
IPOSTER) 

El sfmbolo de la admiracion le indica al 
ordcnador, si esta trabajando con el cassette, que 
evite los mensajes del tipo “Loading Nombre- 
Pantalla block 1”. Si se trabaja con disco, la 
admiracion no sera necesaria, aunque no 
presenta ningun problema si se deja de esta 
forma. 

El nombre de la pantaila (15 caracteres como 
maximo si se trabaja en cassette o bien ocho 
—con otros ties para la extension— si se utiliza 
el disco) correspondera a un fichero de 16 K (17 
K en el catalogo de un disco) que se haya 
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grabado a partir de la direccion de memoria 
&C000 con la siguiente orden: 

SAVE’’jnombre-pantalla’’,B, C000,&4000 

Otra posibilidad de la version configurada de 
los prograinas COPY y POSTER cs incluirlas en 
un programa de uso personal. Para cllo debemos 
utilizar unicamente el f'ichero de Codigo Maquina 
de las versiones configuradas c incluir en nuestro 
programa las siguientes lfrieas: 

10 mm = HIMEN 
20 MEMORY mm-1911 
30 LOAD ’’jCOPY”, mm-1910 
40 CLOSEIN 
50 CALL mm-1910 

y utilizar el comando jCOPY cuando se desee 
imprimir la pantalla, o analogamente para 
j POSTER con: 

10 mm = HIMEN 
20 MEMORY mm-2501 
30 LOAD ’’jPOSTER”, mm-2500 
40 CLOSEIN 
50 CALL mm-2500 

Las versiones configuradas de Tascopy son 
relocalizables en cualquier posicion de memoria, 
por lo que pueden resultar de gran ayuda cuando 
se esta utilizando una subrutina en Codigo 
Maquina que se encuentra situada en una 
posicion fija del mapa de memoria. 

Con todo lo dicho, Tasman Software vuelve a 
dar en el clavo con el Tascopy, que se debe tener 
siempre en cuenta si se desean obtener las 
maximas posibilidades en el CPC. 


Salida por impresora con el programa Tascopy. 


Un programa imprescindible. para los 
amantes del diseno grafico, que nos 
permitira llevarnos “puestos” los 
dibujos que hagamos en la panlalla 



Salida por impresora con el programa Tascopy. 
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fRUCOS 

Haz tu propia melodia 

Esta es la mision del programa que nos envia 
M. Carlos y que hara que el poder componer 
musica con nuestro Amstrad sea cosa facil. 

El programa podra contar con cuarenta notas 
que podremos seleccionar, asf como su duracion y 
volumen, cuando arranquemos el programa. Una 
vez que hallamos definido estas opciones en cada 
nota, apareceran estas mismas dibujadas sobre un 
pentagrama. 

Podremos ofr el sonido de cada nota despues de 
seleccionarla y una vez conformes podremos ofr la 
melodia una vez que hallamos pulsado el numero 
« 8 ». 

Cuando queramos dejar de ofr la melodia, solo 
tendremos que pulsar el espaciador. 

Si se quiere, pueden introducirse otros 
parametros de ENV o ENT, o nivel de sonido. 

Bueno, pues a componer, que Beethoven ya 
queda mas cerca. 


10 BORDER O:WINDOW #1,19,19,11,11 
20 SYMBOL AFTER 210s SYMBOL 210,0,0, 
i 0,0,255,0,0,0 

30 CLSsFOR 1=1 TO 10 STEP 2sFOR J=1 
TO 40sLOCATE j,14+IsPRINT CHR*<210 
>5NEXT j s NEXT i 
40 DIM 2X<41) s DIM DPX(41)sX=l 



50 A=47B s B=426s C=379sD=35B s E=319 s F= 
2B4sB=253 

60 LOCATE 6,1sPRINT"MENU"sPRINT "NO 
TA DO s1”SPRINT "NOTA RE s2 

"SPRINT "NOTA MI s3"sPRINT "NOT 
A FA s4"sPRINT "NOTA S0Ls5" 
sPRINT "NOTA LA s6"sPRINT "NDTA 
SI s7"sPRINT "RESULTADD sB” 
70 LOCATE IB,4s INPUT"VOLUMEN <1 

~7)";V 

BO LOCATE IB,5sINPUT"DURACIDN (1-10 
OO)"jL 

90 FOR i=1 TO 40 
100 5=5+1 

110 LOCATE 3,11sPRINT "ELIJE UNA NO 
TA”s INPUT #1,0PX (I) s IF 0PX(I)>B DR 
OPSC (I) < 1 THEN 110 ELSE 120 
120 ON OPX(I) BOTD 130,140,150,160, 
170,1B0,190,230 

| 130 SOUND 1,A,L,VsZX(X>=AsGDT 0 200 
140 SOUND l,B,L,VsZ7.<X>=BsGDT0 200 
150 SOUND 1 ,C,L,VsZX(X)=CsG 0T0 200 
160 SOUND l,D,L,Vs Z%(X)=DsGOTO 200 
170 SOUND l,E,L,Vs Z5i (X >=Es BOTD 200 
1B0 SOUND 1, F, L, Vs ZX (X) =FsGOTO 200 
190 SOUND l,G,L,VsZX(X>=BsGDTD 200 
200 x*»x + lsp=p+ls 

210 LDCATE p,26-opX(i>sPRINT CHR*(2 
37) | 

220 NEXT i 

230 x=l:FDR j=l TO s 

240 SOUND 1,ZX(X),L„VsIF INKEY(47)< 

>0 THEN 250 ELSE RUN 

250 x=x+lsNEXT j 

260 SOUND 1,3B22,100s GOTO 230 


Los ficheros de nuevo 

Ya vimos una vez un pequeno programa para 
hacer ficheros. En aquella ocasion utilizamos datas 
como sistema de almacenamiento. Hoy, deberemos 
dar los datos directamente y una vez que hayamos 
concluido el bucle de peticion de datos, seran 
archivados y posteriormente lefdos. A continuacion 
se nos mostraran en pantalla. 


10 REM grabaclon de datos. 

20 OPENOUT "Datos” 

30 FOR 1=1 TO 10 
40 INPUT "nombre” ; noni$ 
bO WRITE #9,nom$ 

60 NEXT 
70 CLOSEOUT 

60 REM lectura de datos 
90 OPEN IN "datos” 

100 FOR 1=1 TO 10 
110 INPUT #9,non$ 

120 PRINT "El nombre numero":1; " fue " 
; nom$ 

130 NEXT 
140 CLOSEIN 





































Cl Duque de Sesto, 50. 28009 MADRID 
Metro O'Donnell o Goya 



PTAS. 


PTAS. 

THEY SOLD A MILLION III 

2.500 

NONAMED 

2.100 

ASTERIX 

2.100 

4 SUPER 4 

2.500 

TOP Cl IN 

2.100 

ARMY MOVES 

2.300 

FAT WORM 

2.100 

GAME OVER 

2.300 

REVOLUTION 

2.300 

COBRA 

2.100 

RAMON GUTIERREZ 

1.900 

GOONIES 

2.300 

CAUNLET 

2.300 

ANTTRTAD 

2.100 

BREAKTHRU 

2.300 

AVENGER 

2.100 

DUSTIN 

2.100 

FIRELORD 

2.100 

ARQUIMEDES XXI 

2.100 

I IRIDIUM 

2.100 

FIGHTING WARRIOR 

495 

BOUNTY BOB 

495 

DUMMY RUN 

495 

SOUTHERN BELIE 

495 


NOVEDADES DE KONAMI (10 JUEG0S)+REL0J ROBOT 0 CALCULADORA 1.850 




POR CADA PROGRAMA QUE COMPRES 
iiGRATIS!! UNOS CASCOS DE MUSICA ESTEREO 
SI TU COMPRA ES SUPERIOR A 800 PTAS. 


SERVICIO TECNICO DE REPARACION 
TARIFA FIJA DE 3.600 PTAS. 
TAMBIEN A PROVINCES 
SIN GASTOS DE ENVIO 


IMPRESORAS 
20% DE DESCUENTO 



PTAS. 

CASSETTE ESPECIAL 

3.995 

LAPIZ OPTICO 

2.890 

CARTUCHO MICRODRIVE 

545 

CARTUCHERA 4 MICRODRIVES 

95 

INTERFACE SONIDO TV 

2.595 

INTERFACE CENTRONICS RS-232 

8.495 

DISKETTES 3” 

735 

DISKETTES 5 1/4” 

295 

CINTA C-15 ESPECIAL ORDENADOR 

69 

INTERFACE MULTIJOYSTICK 

3.795 


HOFERTAS EN JOYSTICKS!! 


PTAS. 

QUICK SHOT I 

1.195 

QUICK SHOT II 

1.495 

QUICK SHOT V 

1.495 

QUICK SHOT IX 

1.995 

QUICK SHOT I + INTERFACE 

2.495 

QUICK SHOT 11 +INTERFACE 

2.795 

QUICK SHOT V +INTERFACE 

2.795 

QUICK SHOT IX + INTERFACE 

3.395 


PRECIOS EXCEPCIONALES PARA 
TU AMSTRAD CPC-464, CPC-6128, 
PCW-8256, PCW-8512 


PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO. TEL. (91) 

275 96 16-274 75 02 0 ESCRIBIENDOA: MICRO-1. C/DUQUE DE SESTO, 50.28009 MADRID. 

Tiendas y distribuidores grandes descuentos. 

Dirigirse a Diproimsa. Cl Galatea, 25. Tel. (91) 274 75 03. 










































































Los Goonies 

y el tesoro 
del barco pirata 


Hace aproximadamente un ano, tuvimos la 
oportunidad de ver en las pantallas de cine 
«The Goonies». Este film, de Steven Spielberg, supuso otro impacto lo 
suficientemente fuerte como para que las casas de software sacaran 
rapidamente el juego para ordenador. Hoy, vamos a comentar para nuestros 
lectores, la version, recientemente aparecida, para los CPC de Amstrad. 


JLvAikey, Brand, Mouth, Data, Stef, Andy 
y Chuk, formaban un club de chavales que, 
cuandq^renfan un rato libre, se reuman para 
jugar Por los avatares de la vida, se vieron 
empujados a conseguir el tesoro de un barco 
pirata, el One Eyed Willy, cuyo mapa liabfan 
encontrado en un viejo desvan. Digo empujados, 
porque sus casas iban a ser deshauciadas y claro, 
no estan los tiempos para comprarse una nueva. 

La conquista del tesoro no hubiera significado 
un gran problema para un club de amigos tan 
mtrepidos como los Goonies, si no hubieran 
aparecido en escena la banda de la familia 
Fratelli que, mama incluida, se propuso 
impedirlo. 

A1 comenzar, nos encontraremos en la casa y 
deberemos desplazar a uno de los Goonies hacia 
la parte superior de la misma. Una vez alH, 
correremos una silla que se encuentra a la 
izquierda de la pantalla y la colocaremos debajo 
de una escalera por la que deberemos subir a la 
azotea. Aquf encontraremos una imprenta de 
dinero que se pondra a funcionar cuando nos 
situemos a su lado. A1 olor del dinero, mama 
Fratelli saldra de su habitacion y recogera el 
dinero que cae de la azotea, en este momento, 
pulsaremos el boton de disparo y cambiaremos de 
personaje. Con este, deberemos dirigirnos a la 
planta de abajo, y situarnos al lado de un 
deposito de agua que deberemos verter sobre el 
fuego de la chimenea que veremos. Guando el 
fuego se apague, aparecera en el suelo un agujero 
por el que tendremos que bajar para pasar de 
pantalla. Lo que no sera tan facil, pero que 
lograremos con habilidad, es pasar al Goonie que 


se ha quedado fabricando dinero en la azotea. 
Para hacer esto, es imprescindible la mayor 
rapidez y burlar a mama Fratelli 

En la siguiente pantalla deberemos evitar el ser 
aplastados por los diversos objetos que alii 
veremos. Para lograr no acabar como papel de 
fumar, deberemos situar a uno de nuestros 
muchachos al borde de la primera piedra, cuando 
esta baje avanzaremos hacia la derecha y 
haremos lo mismo con las piedras siguientes, 
luego..., bueno, vamos a dejar de contar todos 
los trucos, porque si no le quitaremos la emocion 
al juego. Continuaremos diciendo que en esta 
pantalla deberemos vernoslas con un murcielago 
vampiro que aparecera de improviso, que 
posteriormente deberemos bajar por una escalera 
y avanzar por la galerfa del lago, donde nos 
colocaremos encima de una bola flotante, para 
posteriormente saltar a una barra y, sin 
descolgarnos de esta coger una Have. En este 
momento, se abrira un hueco y pasaremos por el 
a la siguiente pantalla. 

En esta deberemos romper una de las tuberias 
de vapor para poder pasar. Una vez dentro, 
nuestra tarea sera la de romper las tuberias de 
vapor, pero cuidado, este nos puede matar. Para 
terminal' bien esta pantalla sera necesario, como 
en todo el juego, una estrecha colaboracion de los 
dos Goonies. Asf que, uno de ellos debera cerrar 
la Have del vapor superior y el otro debera 
encargarse de cerrar la Have del vapor inferior . 
Una vez hecho esto, pasaremos por un agujero a 
nuestros protagonistas y pasaremos a otra 
pantalla. 

En la caverna sigiiicnic, deberemos lograr que 
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las balas de canon se desvien de su trayectoria y 
terminen rompiendo las tablas que impiden la 
salida. 

Para salir bien de esta parte de la mision, sera 
necesario tener en cuenta que no debemos dejar 
que suene la campana que hay situada en la 
parte inferior derecha de la pantalla. Si la 
campana llegara a sonar, se despertarfan los 
vampiros que duermen en la gruta, poniendonos 
en una situacion dificil, aunque superable, si 
volvemos a la posicion de origen. 

La siguiente pantalla es la de la calavera. En 
ell a se encuentra un buitre que deja caer 
calaveras, consistiendo nuestra tarea en apilar 
cinco en un monton y situarlas en la parte 
inferior derecha de la pantalla. Cuando esten 
apiladas, podremos subir por ellas y empezar a 
trepar escalas. Antes de pasar a otra etapa, 
vamos a recomendar tener cuidado con el suelo 
de la anterior, guarda sorpresas. 

En la siguiente fase, veremos un organo que 
suena gracias a las burbujas que caen sobre el. 
Para pasar de pantalla, deberemos evitar a toda 
costa que nos toquen las goteras, ya que estas 
matan. El intrfngulis de la cuestion, esta en pasar 
al otro lado de la pantalla utilizando las escalas y 
palancas, estas situadas en el techo, que veremos 
en esta fase. 

Cuando hayamos abierto la ultima puerta con 



la Have que esta muy proxima a ella en el techo, 
habremos terminado la fase y empezaremos otra. 
Esta etapa se desarrolla en una caverna que, 
entre otros alicientes, tiene un gigantesco pulpo 
que tendremos que quitar para poder salir. Esto, 
nada faeil de por si, se complica con la necesidad 
de poner a nuestros heroes a salvo en una 
escalera, ya que si no la corriente les empuja 
hacia una afxlada espada donde podrfan quedar 
insertados como manzanas. Si a esto le anadimos 
que tambien deberemos evitar las tarascadas de 
los murcielagos, podremos decir. que no nos 
aburriremos. 

Si conseguimos quitarnos al pulpo de enmedio, 
y pasar por el boquete que estaba tapando, 
llegaremos a la ultima etapa del juego donde se 
ncuentra el buque pirata y en el, su tesoro. 

Pero para al que se le este haciendo la boca 
agua, diremos que todavia tendremos que 


JUEGOS 

demostrar nuestro coraje en el manejo de 
nuestros dos Goonies antes de echar mano a 
nuestro muy merecido tesoro. 

Entre otras cosas, tendremos que situar a 
nuestro protagonista mas pequeno debajo del 
mastil junto al que se encuentra mama Fratelli 
—cuidado con ella, es peligrosa—, al hacer esto 
lograremos hacer un agujero en el casco por 
donde deberemos pasar al otro protagonista. Una 
vez dentro, deberemos realizar un complejo 
numero de cambios de protagonista para 
aprovechar su estatura que, segun sea mayor o 
menor, podremos utilizar segun nos convenga. 
Despues de estos cambios, y de entretener a 
nuestros enemigos con el pequeno de nuestros 
amigos, debermos ir tirando de las cadenas 
apropiadas en cada caso y recogeremos el tesoro 
del buque pirata. 

Como se puede ver, —en este caso, leer—, 
esta aventura esta llena de accion, pero que por 
otra parte, esta no se limita a la tipica lucha 
contra los marcianos, guerreros o magos. 

Con «Los Goonies», tendremos que demostrar 
habilidad y astucia para descubrir todos los 
sistemas por los que tendremos acceso a las 
palancas, llaves, tesoro, etc. En una palabra, el 
juego nos hace «comernos el coco» un poco, cosa 
esta que, de vez en cuando y tratandose de un 
juego, distrae un monton. 

Todo esto, mas un movimiento que es 
acertado, configuran un juego que se hace 
entretenido y por el que se pueden sentir 
satisfechos en un primer caso US Gold, los 
creadores, y Erbe Software los distribuidores en 


nuestro pais. 


Originalidad 

1£| El El □ □ 

Graficos 

El El El El Q 

Movimiento 

El El El El Q 

Sonido 

El El El □ □ 

Difieultad 

El El El El Q 

Adiecion 

El El El El Q 

Valoracion final 

/ Elorrible Y' Y' 

Y'Y'V'V Bueno 

Un rollo Y' Y' Y' Pasable 

WW/ Muy bueno 
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Glass 

MIND GAMES 

En un planeta, mas alia de la galaxia 
Trifida, donde reinan las sombras y el mas 
tenebroso silencio, un abominable grupo de entes 
pseudo-conscientes, los metalliks, han construido 
tres ciudades que son el azote de la civilizacion 
humana. 

Mientras tanto, en la Tierra, conscientes de la 
amenaza que se cierne sobre el Universo, se 
prepara una movilizacion urgente de pilotos para 
bombarderos galacticos. Estos voluntaries tendran 
la heroica mision de destruir los radares, las tres 
ciudades del planeta Glass y a todos los siniestros 
habitantes. 

Si quieres participar en esta lucha, no pierdas 
tiempo. Allstate cuanto antes. Con este juego de 
la casa Quicksilva, distribuido por Mind Games 
Espana, tu puedes alcanzar el rango de Game 


Lord o Senor del Juego, siempre que mantengas 
en alto tus escudos y consigas derrotar al enemigo 



Quizas lo mas destacable del juego sea el 
movimiento rapido y muy bien conseguido de las 
liguras, las maquinas y demas artefactos que hay 
que destruir. Esto, umdo al brillante col or i do que 
han logrado en los graficos, da como resultado 
un gran realismo que no se ve desdibujado ni 
siquiera a la hora de disparar desde nuestra nave. 
En ese momento descubrimos que no tenemos la 
oportunidad de elegir la direccion de los tiros. Lo 
unico que podemos hacer es movernos en la 
direccion del enemigo, colocarlo en el centra de 
la pantalla y disparar, ya que los tiros estan fijos 
en esa direccion. 

Cada vez que matamos un metallik, cambia 
de color y desaparece. Lo mismo pasa con 
casi todas las maquinas que mandan para 
destruirnos, excepto cuando aparecen los 
tanques. Entonces, todo se vuelve mas real. 
Cuando logramos destruir alguno de estos 
galacticos tanques explota en mil pedazos llenos 
de color 



Cobras Arc 


DINAMIC 


D e las antiguas y olvidadas tradiciones de 
unos pafses perdidos en el tiempo, surge con una 
fuerza incontenible, la leyenda del Templo 
Cobra. Los viejos pergaminos que cuentan su 
historia han sido recientemente descubiertos y 
una legion de nuevos aventureros estan 
dispuestos a correr todos los peligros necesarios 
para conseguir el tesoro del templo. 

La leyenda cuenta que los sacerdotes de una 
milenaria cultura vivfan dedicados al culto del 
dios Cobra, en honor del cual construyeron un 
grandioso templo y durante siglos fueron 
acumulando joyas, ora y toda clase de riquezas. 
Pero una profeefa deefa cjue el tesoro se perderfa 
por un maremoto. Asf los sacerdotes 
construyeron un inmenso barco, tan grande como 
una piramide, en el que poder guardar todas las 
riquezas del dios Cobra, si el maremoto se 
convertfa en realidad. 

La profeefa se cumplio y el templo y su tesoro 
quedaron sepultados en las olas, muy lejos, sin 
que nadie se salvara para indicar su lugar exacto. 

Esta es la aventura que te propone el nuevo 
juego de Dinamic, con el que podras unirte a 
todos los aventureros que, a traves de los siglos. 
se han entusiasmado desafiando peligros de todo 
tipo, con tal de vivir el inolvidable momento en 
el que un mundo magico y desconocido se 
desvelara ante nuestros ojos. 

El diseno grafico produce la impresion de un 
mosaico en el que lo mas llamativo son sus 
colores variados y atractivos. 


Hi.* 

- r*T4<i : i ». 
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Dinamite 
Dan II. Blitzen 
contra 
los jovenes 


ZAFIRO 


D„ 


'e nuevo tenemos a Dan enfrascado en la 
dura tarea de derrotar al loco doctor Blitzen. 

En esta ocasion, el scmpiterno enemigo de Dan 
ha tenido la desprcciable idea de introducir ondas 
subliminales destructoras de la mente en todos los 
discos de musica mas famosos del mercado. 
Evidentemente, el agente Dan no puede permitir 
esta horrible accion y ha puesto manos a la obra. 

La mision de Dan se desarrolla en el grupo de 
ocho islas que forman el cuartel del doctor 
Blitzen 

En cada una de ellas, y despues de haber 
descmbarcado de su zepelln, Dan debera buscar 
un master de donde se reproduciran los «hits» 
mas famosos del memento y escucharlo en una 
antigua «rocola» de bar. No os preocupeis por 
Dan,puesto que como superagente que es, la 
musica no le afectara. Despues debera repostar su 
zepelin y pasar a la siguiente isla, donde debera 
repetir lo anteriormente dicho. 

Cuando Dan haya terminado su mision, tendra 
que poner una bomba en el laboratorio del doctor 
Blitzen y salir corriendo, ya que si no lo logra en 
tres minutos..., jboommm!, se acabaron las 
andanzas de nuestro agente. 

Entretenido, ( ;verdad. ,) 

Dinamite Dan II, cs de Mirrorsoft y esta 
distribuido por Zafiro. 
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Jail Break, 




• A 



evasion 
en Alcatraz 


SERMA 

I ail Break es el nombre del ultimo juego de la 
prestigiosa casa Konami que ha llegado a 
nuestras manos. 

Con el tendremos la oportunidad de entrar en 
un mundo tan oscuro y peligroso como es el de 
las prisiones de alta seguridad. 

En una de las mas peligrosas han secucstrado 
al alcaide de la prision y nosotros, abnegados 
policlas. deberemos rescatarlo y acabar con cl 
intento de evasion de la camel. 

Para ello, contamos con nucstra pistola 
reglamentaria y con las armas que iremos 
consiguiendo segun vayamos salvando rehenes. 
jPero cuidado!, si danas sin darte cuenta a 
alguno de los rehenes. se te quitaran las armas 
conscguidas con tan duro esfuerzo. 








Las armas adicionales son lanzaeohetes y 
bombas de gases lacrimogenos. 

Los presos utilizan armas de fuego para 
intentar conseguir su evasion, ademas de otros 
objetos arrojadizos. 

Hay que tener cuidado con ellos, puesto que se 
esconden en las ventanas y se ocultan detras de 
coches y barricadas. 

Jail Break tiene unos graficos no muy 
elaborados y un movimiento que no pasa de ser 
simplemente aceptable, aunque la accion de su 
tema suple un poco la tibieza de los otros 
aspectos. 

Los juegos de Konami son distribuidos en 
Espana por Serma. 
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( f ame over. 

ermina el juego 
comienza la caza 


DINAMIC 


-A. pesar de que la traduccion al espanol del 
tftulo de este programa es «final del juego», 
realmente deberfamos decir que con el empieza 
otra aventura de la, como su nombre indica, 
activa Dinamic. 

Mas alia de la lejana galaxia Alfa Centauri se 
halla una de las mas antiguas coniederaciones 
planetarias. En ella, reina con mano de hierro la 
soberana Gremla. Su dureza es solo comparable 
a la singular belleza de su rostro y cuerpo. Su 
inconmensurable poder se halla solidamente 
asentado en las mterminables legiones de 
guerreros Terminator que nutren sus ejercitos. 

Estos poderosfsimos androides estan dotados de 
una limitada inteligencia que esta bajo el control 
de Arkos, lugarteniente androide de Gremla 

Cuando Arkos, tipo de androide con cerebro 
mas potente, fue consciente de la drama de 
Gremla, se unio a las fiierzas siderales y se 
propuso acabar con el remado de esta. 

La tarea no iba a ser facil En su camino iba a 




tener que verselas con extranas criaturas y 
maquinas asesinas. 

El juego cuenta con dos fases. La primera, el 
planeta carcel, esta habitado por robots de 
trabajo y Terminators. La segunda, el palacio 
imperial, es tu meta final. Deberas entrar y 
destruirlo, pero previamente tendras que atravesar la 
zona pantanosa que le rodea. 

La calidad del juego es buena y esta apoyada 
en unos graficos bien realizados, ademas de un 
movimiento acertado. 
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FAIRUGHT II 

El mapa, 
los pokes y 
fodas 

las claves 
de un juego 
«superdiffcil» 



GAUNTLET 

Te descubrimos 
los secretos 

de u 

maquinas recreative^ 
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os propuuemos realizar un programa 
que revise lo^ \ alores de cada uno d^os bytes 
que romporien la jpanjalla y si dicho valor 
corresponde a un i determinada, lo 

ambiaremos po. <1 de la nueva pluma. 

En princip \rsc lia establecido que debera 
cambiar u>j6\o .fie se encuentre impreso en 
l, aunque haciendo ligeras 
bnes podfemos cambiar desde cualquier 
a otra^eterminada. 

Se pi .kv elegir, ademas, la zona de pantalla 
en U Cual se desea establecer dicho intercambio, 
5n las dimensiones que se deseen. 

Podremos cambiar asimismo el valor de la 
tinta unicamente para medio caracter o una 
tercera parte del mismo, pudiendo conseguir de 
esta forma rotulos a dos colores. 

Debemos advertir que nuestro programa esta 
preparado para ser utilizado en el modo 1 de 
pantalla, aunque la estructura del mismo puede 
utilizarse para el modo multicolor, es decir, para 
el modo 0. 

Asf, si por ejemplo, el caracter que se 
encuentra en las coordenadas de pantalla 1,1, 
esta con tinta 1, y deseamos cambiarlo a tinta 2, 
deberemos dar a la rutina los siguientes 
parametros iniciales: 

Coordenadas . #0101 

Ancho . 2 (2 bytes por caracter en 

modo 1) 

Alto . 8 (8 bytes por caracter en cual¬ 

quier modo) 


Estos caracteres deberan ser mtroducidos 
respectivamente, en el registro doble HL, y en 
las variables del mismo nombre como indicamos 


a continuacion: 


Coordenadas 
Ancho . . 
Alto . __ 



HL 

Variable ‘ANCHO’ 
Variable ‘ALTO’ 


Como ya sabemos, para introducir dichos 
valores en las variables de programa, deberan ser 
traspasadas en primer lugar al acumulador, y de 
este a la memoria. 

Veamos, pues, como actua nuestra rutina. Ya 
hemos adelantado cuales deberan ser las 
condiciones iniciales del programa, una vez 
^ introducidas, entramos en una rutina 

exactamente igual a la que hemos visto en un 
capftulo anterior cuando se hablaba de la 
impresion de pantalla. 

La unica diferencia esencial que existe entre 
esta y aquellas, esta en el bucle que se encargaba 


Godigo 

MAQUINA 

de pasar los valores de memoria a pantalla que. 
en este caso, se ha cambiado por la rutina 
encargada de cambiar los colores. 

As! pues, como lo que se pretende es cambiar 
todo lo que se encuentre con tinta 1, deberemos 
chequear si el byte lefdo esta imprimido en dicha 
tinta. 

Para ello debemos tener bien claro donde se 
encuentra la informacion para dicha tinta. 

Como hemos visto en capitulos anteriores, 
dicha informacion se encuentra en los cuatro bits 
mas significativos de los bytes dc pantalla, es 
decir: 


X 

X 

X X 0 0 

0 

0 

7 

6 

5 4 3 2 

1 

0 

Por lo 

tanto 

deberemos tomar cada 

uno 

de los 


bytes y comprobar si existe algun tipo de 
informacion en los cuatro bits menos 
significativos, de ser asf, nos inclicara que dicho 
byte puede llevar informacion de la tinta 2 6 3, 
pero no de la que nos interesa a nosotros. 

Asf pues, si en dichos bits no se encuentra 
nada, es decir estan a cero, podremos asegurar 
que dicho byte lleva informacion unicamente de 
la tinta 1 y, por lo tanto, deberemos proceder a 
cambiarla por la 2. 

Dado que la informacion para la tinta 2 se 
encuentra situada en los cuatro bits de menor 
peso, deberemos tomar los cuatros bits superiores 
de dicho byte, y colocarlos en los cuatro bits 
inferiores, con lo cual habremos obtenido la tinta 
deseada. 

Graficamente, dicha operacion se harfa de la 
siguiente manera: 

Byte inicial Byte final 

1011000 00001011 

En codigo maquina, este trabajo se debe 
realizar a traves de la operacion de rotacion de 
bits, para ello utilizaremos la instruccion de 
rotacion hacia la derecha. 

Antes de hacer esto deberemos comprobar que 
el byte actual cumple las condiciones 
correspondientes a la tinta 1 , para ello 
deberemos realizar lo siguiente: 

LD A,(LIL); Tomamos el byte de 

pantalla 

AND 15 

JR NZ.PPAAS; Si no corresponde a 

la tinta 1 continua- 
mos con el siguiente 
byte. 
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Codigo 

MAQUMA 

Suponiendo que dicho byte condene la 
informacion correspondiente al color 1, 
deberemos modificarlo de la forma que se indica 
a continuacion: 

LD A,(HL) 

RRA 
RRA 
RRA 
RRA 
AND 15 
LD (HL),A 

Esta operacion se debera efectuar con cada uno 
de los bytes de la zona de pantalla en la cual se 
quiera alterar los colores ya existentes. 

De esta forma si deseamos transformar una 



zona de pantalla de 10 caracteres de ancho por 
10 caracteres de alto, a partir de las coordenadas 
iniciales 5,5, debenamos introducir los siguientes 
valores en los parametros iniciales: 

HL .... #0505 

ANCHO 10 

ALTO 80 

Cuando se desea cambiar unicamente el color 
de medio caracter, deberemos introducir en la 
variable ‘ALTO’ cl valor 4, ya que estos son los 
bytes correspondient.es a medio caracter. 

La operacion contraria a la vista hasta ahora. 
es decir transformar todo lo que se encuentrc de 
color 2 a tinta 1. podrfamos rcalizarla 


introduciendo en lugar de las instrucciones vistas 
anteriormente, las que indicamos a continuacion: 

LD A,(HL) 

AND 240 
JR NZ,PPAAS 
LD A,(HL) 

RLA 

RLA 

RLA 

RLA 

AND 240 

LD (HL),A 

PPAAS: INC HL 

Como podemos comprobar sigue la misma 
estructura que la anterior, pero en este caso se 
realiza una rotacion hacia la izquierda, con el fin 
de traspasar los bits de menor peso hacia los 
cuatro bits mas significativos que son los 
indicadores de color 1. 

Con esta misma estructura de programa, 
deberemos ser capaces de realizar operaciones de 
cambio de color para el modo 0 de pantalla. 
teniendo en cuenta cuales son los valores para 
cada una de las tintas en dicho modo. 

Asimismo podremos realizar en modo 1 el 
cambio de los colores a tinta 3, o de esta a las 
demas. 

Confeccionando varias rutinas de este tipo, 
podemos conseguir efectos bastante bonitos, ya 
que podremos imprimir en pantalla caracter a 
varios colores, con lo que pueden resultar 
presentaciones muy vistosas. 

Con lo que hemos visto hasta ahora, 
unicamente podfamos tener diferentes colores por 
caracteres en sentido horizontal, ahora bien, 
tambien podremos conseguir diferentes colores en 
sentido vertical, si unicamente traspasamos 
ciertos bits de los bytes de pantalla. 

Asi, por ejemplo, si unicamente traspasamos 
dos de dichos bits, podremos conseguir caracteres 
ray ados a dos colores, esto se puede hacer si 
colocamos en lugar de las rutinas anteriores, la 
siguiente: 

LD A,(HL) 

AND 15 
JR NZ,PPAAS 
LD A,(HL) 

RR (HL) 

RR (HL) 

RR (HL) 

RR (HL) 

OR (HL) 

LD (HL),A 
PPAAS: INC HL 

Como se puede comprobar. con la misma 
estructura de programa, se pueden conseguir 
multitud de efectos, con la unica condition de 
cambiar adecuadamente la estructura de la rutina 
de transformacion. 
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Una cinta gratis 

por la compra 

de liumeros atrasados 





Con la compra 
de siete iiunieros 
atrasados 
recifoiras gratis 
una ctnta de 
nrogramas de 
YOIJR 

COMPUTER (el 
mejor software 
angles), 
totalmente 
gratis. 


Aprovecha la oferta 
y consigue tu coleccion 




Vease hasta que 
punto se puede 
detallar un 
dibujo con «Art 
studio». 


Dibujar en up ^ istrad CPC 
ya no tiene secretos... con 
«Art Studio». jSin tocar el teclado! 

Victor vriWto 

Hasta ahora todos los buenos programas de dj.bujo eran dificiles de 
manejar, pern"The Art Studio"une al mejor software de diseho la forma 
mas sencilla e intuitiva de utilizacion. 


p 

robablemente los programas de dibujo 
y diseno son los mas populares en el segmento 
de programas que se encuentran a medio 
camino entre los recreativos y los de gestion, 
ocupando la tierra de nadie del software de 
utilidad. 

En este mismo campo, comentabamos hace 
unos meses uno de valor excepcional para hacer 
musica por ordenador; estamos hablando del 
Music System, una obra unica e irrepetible que 
tachabamos como la envidia del software de 
nueva generacion 

Poco tiempo despues, Rainbird, la casa 
productora de aquella revolucion, nos vuelve a 
sorprender gratamente dandole la puntilla al 



software clasico. y abriendo en los ordenadores 
domesticos el camino del Macintosh en su mas 
puro estilo. 

Dispuesta esta casa britanica a hacerse con la 
biblioteca de utilidades de mas calidad del 
mundo, esta vez nos deleita con un programa 
de diseno por ordenador. Bajo el nombre de 
Art Studio se esconde la mejor obra realizada 
nunca en la historia de los ordenadores 
domesticos, digna de grandes sistemas con 
muchos Ks de memoria y de una ejecucion y 
diseno jamas vista en nuestros monitores. 

La realizacion del programa sc ha heclio con 
los ojos puestos en el usuario que no quiere 
complicarse la vida con la continua consulta del 
manual, por lo que toda la informacion del 
programa aparcce en pantalla lista para su 
consulta y ejecucion. 

Fieles a la metodologfa utilizada por el 
Macintosh e imitada posteriormente por el 
Gem. toda la seleccion de las distintas tareas a 
realizar se lleva de forma grafica e intuitiva 
gracias a la utilizacion de menus y submenus 
que automaticamente se despliegan en la 
pantalla, complementados con smnbolos graficos 
para las opciones mas complejas. 

Durante toda la ejecucion, nos movemos por 
la pantalla con un cursor en forma de flecha 
con el cual senalamos la casilla del menu que 
queremos utilizar. Al pulsar en la porcion 
correspondiente a cualquier opcion, surgira 
sobre la pantalla el submenu correspStindiente, a 
traves del cual nos moveremos de nuevo hasta 
senalar la operacion deseada tras la cual sera 
ejecutada o nos llevara a un nuevo submenu. 

Con esta filosofia, las largas jornadas de 
experimentacion que nos costaria Uegar a 
manejar un programa de similar potencia, pero 
basado en los metodos clasicos, quedan 
reducidas a una sola sentada, tras la cual 
cualquiera puede obtener espectaculares 
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de Joystick. 


resultados, aunque sea la primera vez que 
maneja un programa de esta clase. 

Menu principal 

La pantalla de dibujo esta presidida por el 
area reservada al menu principal, concentrado 
en una franja de cuatro centimetros de altura, 
en la parte superior de la pantalla, donde se 
encuentran todas las instrucciones fuente del 
programa. 

En la tila superior y comenzando de izquierda 
a derecha, tenemos las coordenadas del cursor, 
Print, File, Palette, Paint, Misc y Undo. En la 
inferior: Windows, Fill, Magnify, Text y 
Shapes; a la derecha estan situadas las flechas 
que desplazan la pantalla de arriba/abajo. 

Estas flechas son de gran importancia a la 
hora de aprovechar la totalidad de estas para 
dibujo. Debido a la utilization de la cabecera 
como menu principal, esta no puede ser pasada 
a la parte inferior, por lo que para dibujar en 
esa portion las flechas permiten desplazar la 
pantalla hacia abajo pudiendo realizar en la 
zona oculta por la misma las operaciones 
necesarias. 

Cada palabra de ella, esta encerrada en un 
rectangulo, de manera que al posicionar el 


cursor dentro de cualquiera de ellos y pulsar el 
boton, automaticamente se produce la aparicion 
del menu correspondiente a esa option. 

A estas alturas es importante aclarar que The 
Art Studio se puede utilizar con cl raton AMX. 
el Kempston o cualquier joystick de los 
existentes en el mercadu. con los que el 
movimiento del cursor se realiza de una forma 
mucho mas eflciente que con el teclado. 

Dibujando 

The Art Studio trabaja en dos modos 
distintos de resolution: En el Modo 1 
disponemos de cuatro colores con una resolucion 
de 320 en horizontal x 200 pixels en vertical. 

El Modo 2 es monocromo con la maxima 
resolucion del Amstrad: 640 en horizontal x 200 
en vertical. 

Una vez fijado el modo de resolucion en el 
que vamos a trabajar, podemos comenzar a 
esbozar nuestros primeros trazos en la pantalla. 

Para dibujar seleccionaremos en la cabecera 
PAINT, y nada mas apretar el pulsador 
tenemos el submenu correspondiente. La 
primera opcion nos permite seleccionar el color 
de la tinta con la que vamos a pintar. 

Con la siguiente, podemos definir el grosor y 
la forma del trazo. Disponemos de un total de 
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16 tipos distintos, que van desde el de un solo 
pixel, hasta el rectangular de trazo grueso, 
pasando por las distintas ancharas de trazo 
diagonal. El dibujo se realiza '>ulsando el 
disparo, cuando dejamagde pulsar, el lapiz se 
mueve pero no trazjJLgfai dc facil. 

Para ejecutar sombrcados y distintas 
tonalidades oscuraL nada mejor que el spray, 
con el podgfi&>s escoger entre ocho tipos de 
densidad cjP^toncentracion. 

La siguiente opcion nos permite utilizar unos 
pmcefes muy especialcs, con los que tenemos 16 
tipos de trazo a elegir, entre los que 
rencontramos desde trazo redondo a cuadrado y 
hasta distintos simbolos como caras, iniciales, 
etc. 

Art Studio permite ejecutar y diseiiar las 
opciones mas complejas jamas previstas 
para un ordenador domestico 


Por si todos los tipos de piumas y pined 
todavla no se ajustan a nuestros gustos, el 
editor de pinceles permite fabricar nuestro 
propio tipo, el cual se incorporara a la tabla de 
los dieciseis anteriores. 

Con el objeto de no olvidar en que modalidad 
de dibujo nos encontramos, el cursor se 
translorma en un lapiz, un spray o un pincel 
que nos acompana a lo largo de todo el trazado. 

El borrado se realiza cambiando el color de la 
tinta por el del fondo y pasando el cursor por la 
zona a borrar. 

Colores 

hi Amstrad posee un total de 27 colores de 
los cuales solamente se pueden utilizar 
simultaneamente 16; nuestro programa en el 
Modo 1 solo es capaz de usar 4 colores, los 
cuales podemos elegir a voluntad entre el total 
de la gama del Amstrad. 

Esta seleccion se hace pulsando la casilla 
PALETTE de la cabecera, inmediatamente 
aparece la carta de colores, en la que 
seJeccionaremos los colores de papel, tinta, tinta 
1, tinta 2, borde y velocidad de parpadeo. 

La seleccion se realiza por unas escalas que 
contienen 27 divisiones, y se puede hacer 
directamente colocando el cursor en la division 
requerida o bien utilizando las flechas situadas a 
los lados, que a cada pulsacion avanzaran en 
uno el indicador de color. 

Cada vez que efectuamos un cambio en cada 
escala de color, este es reflejado 
automaticamente en las porciones de dibujo que 
no tapa la carta, conservandose al volver a la 
pantalla de dibujo, una forma facil y eficaz de 
cambiar los colores de nuestra obra. 


Miscelanea 

A estas alturas podemos tratar la parte del 
programa que fija las caracteristicas principales 
que van a regir el curso de todos nuestros 
dibujos, estas estan contenidas en el apartado 
MISC y permiten las siguientes acciones: 

Hacer posible la vision de la pantalla 
completa eliminando la cabecera del menu 
principal. 

Limpiar la pantalla. Es importante destacar 
que el programa contiene en la cabecera la 
opcion UNDO, que permite devolver la pantalla 
a la situacion en que estaba antes de realizar la 
ultima modificacion por opcion de menu, de 
esta forma si borramos la pantalla completa 
podemos recuperarla con UNDO. 

Tambien, despues de dibujar varias lfneas 
con trazo diferente, o cualquier otra accion que 
implique cambio de opcion, UNDO permite 
devolver la pantalla a su estado anterior 
eliminando las ultimas modificaciones. 

Las siguientes funciones permiten seleccionar 
el modo de pantalla con el que vamos a 
trabajar. 

Podemos establecer saltos de determinada 
longitud del cursor, de forma que podemos 
obtener importantes puntos de referenda a la 
hora de utilizar proporciones en los dibujos, se 
puede fijar el salto en vertical u horizontal con 
las longitudes de 2, 4, 8 y 16 pixel, o anularlo. 

Input devices 

Dentro del menu de MISC se encuentra esta 
opcion, con la que fijaremos el tipo de control 
con que vamos a manejar el cursor. 

INPUT DEVICES, dene su propio submenu 
que especifica todas las caracteristicas y clases 
que siguen a continuacion. 

Podemos trabajar con las teclas de cursor, 
joystick, ratones AMX y Kempston y definir las 
teclas que mejor nos parezean, la mejor polftica 
es utilizar el joystick y el teclado 
simultaneamente con lo que el primero nos 
servira para los desplazamientos largos, y las 
teclas de cursor para el dibujo de precision. 

En el mismo submenu podemos cambiar la 
forma del cursor de la flecha a la mas precisa de 
punto de mira, la cual se mantendra en todas 
las formas de dibujo, sin aparecer el lapiz, el 
pincel, el spray y demas signos. 

La siguiente opcion activa o desactiva la 
representacion de las coordenadas del cursor en 
la cabecera. 

Si la velocidad del cursor nos parece algo 
lenta, lo que se aprecia en largos 
desplazamientos de lado a lado de la pantalla en 
busca de la cabecera, podemos acelerarla 
utilizando el «Fast cursor». 

Volviendo a MISC, la ultima funcion permite 
grabar el programa personalizado con nuestros 


32 AMSTRAD Semanal 








colores, tipo de cursor, modo a emplear, tramas 
definidas y demas variantes que preferimos 
utilizar en nuestros dibujos. 


Formas geometricas 

Ciertas formas geometricas sencillas se hallan 
definidas de tal forma que para su trazado basta 
con utilizar la opcion adccuada. 

La primera opcion permite seleccionar cl 
color de la tinta a usar. 

Tras ella se encucntran cl dibujo de puntos, 
el de lmcas, el de li'ncas encadenadas en las que 
el final de una, es el principle de la siguiente, 
rectangulos, triangulos, tirculos y rectas 
concur rentes en un punto. 

La opcion mas espectacular, contenida cn 
ELASTIC, permite ver el resultado de nuestra 
figura antes de fijar el punto final, as! cuando 
trazamos un rfrculo, por ejemplo, vamos viendo 
como este crece o se contrae hasta la proportion 
deseada, alcanzada la cual, un toque de disparo 
lo fija al tamano definitive. El mismo efecto se 
obtiene con rectas, triangulos y rectangulos. 



Ampliation 

Una de las cosas mas espectaculares de este 
programa es su rutina de ampliation, con ella 
podemos aumentar cualquier section de nuestro 
dibujo en dos, cuatro u ocho veces. 

Corresponde en la cabecera del menu a 
MAGNIFY y una vez seleccionado el tamano, 
el cursor se transforma en una lupa que 
colocamos en la portion de dibujo deseada, con 
un toque de boton, pasamos a la pantalla de 
ampliation. 

Dos bandas, una vertical y otra horizontal 
situadas arriba y a la izquierda de la pantalla, 
permiten mover la portion de dibujo contenida 
en la pantalla de ampliation, de esta forma 
podemos llegar a cualquier parte del mismo sin 
salir de esta pantalla, para hacer un cambio de 
tamano tampoco es necesario salir, pudiendo 
pasar de 2 a 8, o de 4 a 2, etc. 

En esta pantalla podemos dibujar o borrar 
cualquier punto, obteniendo, gracias a la 
ampliation, una precision inmejorable. En la 
ampliation a ocho veces es posible utilizar una 
cuadrfcula para identificar la position de los 
puntos y conocer su exacta localization. 

Superficies 

El relleno de superficies es otra de las 
brillantes implementaciones de este programa, 
los rellenos en distintos colores se ejecutan de 
forma rapida y sin fallos. 

Sin embargo, la opcion mas expectacular es la 
de texturas. El relleno con texturas permite 


utilizar un total de 32 tramas distintas, en cada 
una de las cuales podemos elegir dos colores, 
uno para el fondo y otro para el punteado. 

Estas tienen la facultad de poder superponerse 
borrando la de abajo o utilizar la transparency, 
con lo que el espectro de tramados posibles 
aumenta en progresion geometrica. 

Tambien existe un editor de texturas con el 
cual podemos crear nuestra propia trama c 
incluirla en el catalogo de las mismas para su 
uso posterior. Una copia del programa con 
nuestros disenos de tramas serfa muy ventajosa. 

Ventanas 

El tratamiento de ciertas porciones del dibujo, 
de manera distinta al resto, es posible gracias al 
uso de las ventanas. 

Con ellas acotamos una portion determinada 
—que en el caso mas extremo puedc ser toda la^ 
pantalla— y la procesamos a nuestra 
conveniencia. M 

Las acciones principals a realizar sobr L 
superficie acotada, pueden ser de cop* en 
cualquier parte de la pantalla, dt rnoVimiento y 
de propio borrado. 

En otro nivel de transform^ron mas 
profundo, las ventanas s oipIlKibceptibles de 
movimientos de giro, por cuartos de vuelta, 
estas tambien sypue^ui reflejar sobrv eje 
vertical u horizon®. 

Pero, sin lygar a dudas, la 'unciof mas 
tentadmra, por sus grandes posib’ idades, es la 
de oimbio de escala, coi la na vez fijada la 
V^ntana fuente podernos c^ener en cualquier 
ptffe de la pantalLedina xopia a escala, con solo 
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construir con el cursor un rectangulo que 
contenga las nuevas dimensiones de la misma. 

La can tidad de efectos y posibilidades de estas 
y la repetition de formas a distintas escalas, 
hacen que nuestras composiciones puedan ganar 
en ritmo y vivacidad, cuajando la pantalla de 
formas facilmentc generables a partir de la 
figura fuente de la composition. 

Texto 

Una de las principales ventajas de Ins 
programas de dibujo, es que podemos incluir 
texto en nuestras composiciones, para realizar 
tftulos, leyendas, pies, acotaciones, etc. 

The Art Studio contempla csta posibilidad en 
toda su amplitud, demostrandn una vez mas 
que programas dc este tipo se encuentran a 
anos luz. 

La escritura sc puede realizar en cualquiera 
de los cuatro colores, escribiendo horizontal o 
verticalmente, segun nos apetezca. 

El tamano de la letra puede ser f'ijado en 
funcion de nuestras necesidades. La forma de 
elegirlo se realiza fijando la anchura y altura de 
los caracteres. Existen los siguientes tipos en los 
cuales habra que combinar la anchura con la 
altura: ancho normal, doble anchura, triple 
anchura, largo normal, doble altura y triple 
altura. 

El resultado, tambien se puede obtener en 
letra normal, siguiendo el conjunto de caracteres 
estandar del Amstrad en italica o en letra 
enfatizada. 

En el caso de que la letra del Amstrad pueda 
resultar aburrida, en el disco estan contenidos 8 
tipos distintos de letra, los cuales pueden ser 
cargados a la memoria mediante el editor 
fuente. 

Si aun no estamos satisfechos con estos tipos 
de letra, el editor nos permite disehar nuestro 
propio juego de caracteres el cual podemos 
grabar en disco. 

Todos estos nuevos tipos de letra tambien 
pueden ser procesados, alargandolos, 
ensanchandolos, enfatizandolos o inclmandolos. 

Disco e impresora 

La option FILE del menu principal se 
encarga del trabajo con el disco, con ella 
podemos cargar o grabar cualquier pantalla, 
realizar un catalogo del contenido de mismo, 
borrar ficheros y realizar mezclas de los 
mismos. Todo con un uso eficiente y bello de 
los iconos. haciendo que la unica cosa que 


tengamos que teclear sea el nombre que 
queremos ponerle a la pantalla que grabamos 
desde el programa al disco, todo lo demas a 
base de cursor. 

Despues de haber realizado un dibujo, que 
menus que obtener una copia por impresora, 
para ello PRINT nos da la solution. 

Esta copia puede ajustarse a distintos 
tamanos, horizontal y verticalmente, de esta 
forma podemos fijar independientemente una 
escala horizontal y otra vertical, el tamano varia 
de 1 a 5 en cada direction, haciendo que 
nuestras reproducciones se ajusten a los tamanos 
deseados. 

Tambien se puede elegir entre densidad 
simple y doble densidad, obteniendo una mayor 
resolution en el segundo de los casos. 

Si el formato de impresion es demasiado 
grande para nuestra impresora, el submenu nos 
permite imprimir a lo ancho, obteniendo un 
aprovechamiento total de las dimensiones del 
papel en reproducciones de gran tamano. 

El programa esta preparado para utilizar la 
impresora Amstrad DPM-1 o cualquier Epson 
compatible, otro tipo distinto de impresoras 
requiere la introduction de un determinado 
numero de parametros en un programa Basic, 
el cual grabado en disco sera cargado 
automaticamente por el Art Studio; el manual 
explicara la forma de realizarlo. 

El programa puede usarse con raton, 
Joystick o teclado. Ante todo, comodidad 


El block que acompana al programa es claro 
y completo. A lo largo de 54 paginas se 
desentrana cada una de las opciones de esta 
obra, exphcando detenidamente su 
funcionamiento y los resultados que produciran 
en nuestros dibujos. 

Para los que quieren aprender sobre la 
marcha basandose en el desarrollo de un 
ejemplo practico. las paginas finales ofrecen un 
ejemplo de trabajo, en el que utilizando una 
pantalla de las de demostracion se nos ensena 
paso a paso las facetas mas interesantes de Art 
Studio. 

Entre toda esta montana de software que nos 
invade, hay unos productos que destacan por siu 
calidad y esmerada elaboration; los de la ca c a 
Rainbird, el Art Studio es buena muestra d L 
que queremos decir; programas estudiadi., hasta 
el ultimo detalle y pensados para que suffnanejo 
no requiera horas de estudio anjcS de ponernos 
manos a la obra, hati^flo a L ve que esta 
sencilla utilization ,.o sc impolfmento para 
calificarlo como^i inqor programa dc dibujo de 
la historia cl Amstrad. 
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lLsla section esta dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, program adores y, en general, cualquier close de 
anuncio que pueda servir de utilidad a los lectores. Todo aquel que lo 
desee puede enviarnos su anuncio, mecanografiado, a: HOBBY 
PRESS, S.A. AMSTRAD Semanal. Apartado de Correos 54.062. 
28080 Madrid. /ABSTENERSE PIRATAS! 


Mercado 

COMUN 


Vendo Amstrad CPC 664 
(monitor color) en perfecto 
estado. Cinco diskettes con 
CP/M, Pascal, Logo, 
Mastercalc, Amsfile y otras 
muchas utilidades y juegos en 
quince cassettes. Joystick, cable 
de conexion para cassette, 
cubierta protectora para el 
teclado y manuales. Todo por 
80.000 ptas. Intrcsados llamar 
al (91) 618 14 69. Mostoles 
(Madrid). 


Vendo Amstrad CPC 464 
monitor color comprado en 
marzo 1985 como nuevo. con el 
manual en Castellano; con el 
lote incluyo muchos juegos en 
cassette. Todo por 70.000 ptas. 
Jaime Sachis. Tel (93) 

307 61 12. Horas despacho. 


Deseo contactar con usuarios 
de Amstrad 664 y 6128, para 
intercambios «serios» de ideas. 
Tambien me gustarfa saber si 
cxiste algun club de Amstrad 
en Las Palmas. Podeis 
llamarme al 26 08 50, en horas 
de oticina. Federico Gracia Perez, 
Urb. Parque Central, bl. 2, 
11-/D, Las Palmas de Gran 
Canaria. 


Ofrezco monitor Amstrad 
GT 65 fosforo verde mas 
diferencia, a cambio de monitor 
color Amstrad CTM 644 para 
CPC 128. Mi monitor fue 
comprado en agosto 86. 
Interesados llamad al 
tel. 450 52 89, o escribid: Jose 
Luis Novo. San Valeriano, 4, 

2.° izqda. 28039 Madrid. 


Fe de erratas 

Pese a nuestra vigilancia 
mas intensa. los duendecillos 
de imprenta han vuelto a 
realizar travesuras. 

Esta vez han ocasionado 
un pequeno embrollo con los 
trucos numeroS 26 y 27, 
aparecidos en las paginas 21 
y 22 de AMSTRAD 
Semanal, en el numero 71. 

El programa cargador que 
aparece al final del truco 
numero 26 pertenece al 27, o 
sea, a Como llenar areas 
con color usando el 
Firmware. 

Por otra parte, el listado 
cortado en la lfnea 10 del 
truco numero 27, continua 
en la pagina anterior, al final 
del truco numero 26, a partir 
de «20 LD, A, 170; 
NUMERO DE TRAMA EN 
DECIMAL*,- El texto que 
viene a continuacion del 
listado tambien pertenece al 
mismo. 


Urge vender Amstrad PCW 

8256 por 130.000 ptas. Regalo 
a quien compre el ordenador 20 
discos con los mejores 
programas que existen en el 
mercado. Interesados contactar 
con Rogelio. Tel. (96) 252 04 31. 
Chiva (Valencia). 


Compro la antigua placa 
Vortex SP-512 de 64K. 
Interesados llamar o escribir a 
Esteban Tarnda. Secretario 
Coloma, 96, 7.° 2. a . 08024 
Barcelona. Tel. 210 61 83. 


Vendo ordenador Amstrad 
CPC 464 con monitor color. 
Incluyo manual en Castellano, 
10 programas originates y 
joystick. Todo esta nuevo sin 


uso. Por 78.000 ptas. Llamar al 
tel. (925) 78 58 93. Juan Gomez. 
General Mola, 3. Fuensalida 
(Toledo). 


Bienvenido al club para 
Amstrad, MSX y Spectrum. 
Estamos buscando soeios a los 
que les enviare.rnos un carnet y 
un juego gratis adennis de 
mapas, trucos, pokes... Pide 
mas informacion al apartado de 
correos 35 de Puerto Real. 
11510 Cadiz. 


Club de amigos usuarios de 
Amstrad, desearfa contactar 
con otros clubs o con 
particularcs para intercambio de 
juegos, trucos, utilidades, etc.. 

Dirigirse a: Bartulome 1'ruyot. 
Plaga des blanquer, 17. Inca 
(Mallorca). 


Intercambiamos programas, 
trucos e ideas para Amstrad 
CPC 464. Disponemos de 
buenos juegos. Los interesados, 
(y si son de Avila mejor), 
escribir a: Jose Ignacio 
Hernandez. Alfonso de Montalvo , 
1, 2. v 2. a . 05001 Avila. O 
telefonear al 22 74 90 de Avila de 
lunes a mernes. 


Vendo Amstrad CPC 464 
monitor fosforo verde, 
comprado en abril 86 con 
garantla; lo he usado muy 
poco. 60.000 ptas. Escribir a: 

F. Carhonell. Doctor Fleming, 5. 
Almusafes (Valencia). 
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CONTABILIDAD 
GENERAL (CONFAS) 

MICROGESA 8256-8512 

Este programa de Microgesa 
utiliza el lenguaje MBasic Compi- 
lado y cuenta para su ejecucion con 
una entrada de datos muy rapida 
y sencilla de manejar. 

Entre las caractensticas que de- 
finen al CONFAS estan la actua¬ 
lization automatica del Mayor, 
Diario, etc; la incorporation del 
listado de IVA, ya legalizado, y la 
generation automatica del apun- 
te del IVA. Ademas de esto, este 
programa de CONTABILIDAD 
GENERAL permite la predefini- 
cion de los asientos de apertura v 
regularization, con posibilidad de 
llevar a cabo cualquier tipo dc 1110 - 
dificacion. 

Finalmente, consigue el balan¬ 
ce de la situation configurable. 

Este programa, que enlaza con 
el FAST, cuesta 24.500 ptas. 

LEO.EOS V:2.01 

LEO COMPUTER 8256-8512 
La casa Leo Computer presen- 
ta este programa de contabilidad 
disenado para la pequena y media- 
na empresa o para profesionales li- 
berales, que contempla un maxi- 
mo de 1.000 cuentas definibles por 
el usuario, control de entradas y 
salidas, extractos de cuentas con 
totalizadores, balances por fechas, 
mensuales y totales y listados pa¬ 
ra consulta por pant alia y por im- 
presora, as! como control de ven- 
cimientos. 

Su precio (IVA incluido) es de 
14.500 ptas. 

LEO. FAC V:2.03 

LEO COMPUTER 8256-8512 
Se trata de un programa de fac- 
turacion de la casa Leo Computer 
que nos permite la edition de fac- 
turas y recibos de una forma facil 
y rapida. Contempla un archivo de 
clientes con todos los datos nece- 
sarios para poder editar, posterior- 
mente, las facturas. 

Al mismo tiempo, dispone de un 
archivo para los articulos, con de¬ 
nomination y precio, emite etique- 
tas de clientes y articulos, balance 




decimal, logaritmo natural, ade¬ 
mas de funciones predefinidas (to- 
taliza y subtotaliza automatica- 
mente). 

— Permite etiquetado de cel- 
das. 




PCW 


mensual de facturacion e IVA y, 
ademas, contiene gestion de repre- 
sentantes. 

Cuesta (IVA incluido) 25.000 
ptas. 


— Realiza graficos. 

— Obtencion de datos por im- 
presora. 

— Gestion automatizada del 
disco. 

Su precio es de 14.500 ptas. 

GESTION 

DE VIDEOCLUBS 

(VIDEOGES) 


LEO.IVA 1:2.00 

LEO COMPUTER 8256-8512 
Este programa gestiona la enlra- 
da numerada de facturas del IVA 
soportado y la emision de facturas 
propias del IVA repercutido. Rea¬ 
liza los totales por pantalla y ba¬ 
lances trimestrales, as! como la sa- 
lida por impresora de la cantidad 
resultante para su liquidation. 

Es de la casa Leo Computer y 
su precio, con IVA incluido, es de 
14.500 ptas. 

RPA.ETIQUETAS 

MAILING 

RPA SISTEM INC. 8256-8512 
Este programa esta destinado a 
la realization de todo tipo de eti- 
quetaje para mailing y, ademas, 
ofrece la posibilidad de elegir el ti¬ 
po de letra y formato, siempre den- 
tro de las posibilidades que ofrece 
el programa. 

Cuesta 7.500 ptas. 

RPA.MULTICALC 

RPA SISTEM INC. 6256-8512 
Se trata de una hoja de calculo 
de gran rapidez y de sencillo rna- 
nejo. Sus caractensticas principa- 
les son: 

— Mas de 60 filas. 

— Desde «A» a... «Z» colum- 
nas. 

— Posibilidad de introducir 60 
formulas de 60 caracteres. 

— Admite las siguientes funcio¬ 
nes matematicas: seno, coseno, 
tangente, arcotangente, logaritmo 


MICROGESA 8512 


Microgesa ha lanzado este pro¬ 
grama, en lenguaje MBasic Com- 
pilado, pensando en la gestion de 
los videoclubs. Con el quedaran to- 
talmente controladas las entradas 
y salidas de peliculas, tiempo de al- 
quiler y numero de socios, y regis- 
tra hasta siete modalidades de al- 
quiler de peliculas. 

Ademas, ofrece la posibilidad de 
realizar todo tipo de estadisticas, 
genera recibos, listas de direccio- 
nes y cualquier otro tipo de datos 
que se deseen anadir. 

Su capacidad global permite la 
insertion de 5.500 titulos de peli- 
culas y de 2.500 socios. 

Cuesta 31.000 ptas. 
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FACTURAS AL INSTANTE 
Y SIN PROBLEMAS (IV) 



Aqui esta la cuarta 
parte de este magnifico 
programa de facturacion 
para el PCW, tanto 
8256 como 8512. Los 
lectores que se hayan 
«enganchado» en este 
numero sepan que se 
trata de una aplicacion 
profesional ' de ahi su 
longitud. 


LISTADO 1 


5 UN th'RuR GOTO 20000 
10 GOSUB 11440 
20 60SUB 11260 
25 iotal=0:contador=0 
30 PRINT FN1 oc*(10j4)J"l I S T ft D 0 ARTICULD 
S " 

4<; PRINT FNloctiSO,8);"Fecha de expedition : " 

100 PRINT FNIoc$(20,20);"Cod. Primer articuio : " 
110 PRINT !-NIocft20,22);“Cod. Ultimo articulo * 
120 xS=73:y*=8:alfa*=2:cap*=6:dec*=0:G0SUB 10000 
125 If tl=”" THEN CHAIN "menu 
130 fecna$=tl:GOSUB 10310 

140 IF fec(iat="faIlo!” THEN 120 ELSE fethael=fethal 
US PRINT FNlocK 73,83 jfechael;" " 

3 10 x*=46:y *=20 :cap*=4: decS=0 1 aifa*=21G0SUB 10000 
320 IF t$= a " THEN 120 ELSE codlJ=STRINGi{4-LENCt$),"0' J 

ini 

330 PRINT FNlocl(46,20)jcodlt»“ " 

340 xl=46:yX=22:alf aX=2:c apX=4: dec *=0: GOSUB 10000 
350 I r t$= a " THEN 310 ELSE cod2$=STRING$(4-LEN<t$), a C“ 

l+i$ 

360 PRINT FN!ocl(46,22)jcod2$j" " 

36 1 PRINT FN 1 oc $(5. 28)*"Pania11a (f!) - Impresora ; To 
tal Cf3) Partial tfSi : ";:o«=INPUT$CH 

. 362 IF o$0"l" AND 0$O*3" AND o$<>“5" THEN 361 
363 PRINT FNIoc$Cl,i):G0SUB llSOOlF'RINT FNloclU.l) 

370 PRINT FNIocK 5,28); “CORRECTS (INS) CANCELAR (CAN) 

: 1 ;: G0SUB 11360 

375 PRINT FNIoc»(10,2>i" " 


380 GOSUB 11500 
330 IF bien *=0 THEN 340 

400 cadl=STRIN 6 $ ( 63 , CHR$( 0 ) Jlnomf icat$=”a'. carti tex": n 

osf i u«J$=’a: cacti. Ley": nimfiX=5 

410 r anX=•:c ia$=cod1$:tipX=l 

420 GOSUB 10440 

430 IF ferrorSOO THEN 20000 

440 nompre$=« 10 $(cad$ i 1,293 

445 iva$=Hmt(cadi, 30 , 1 / 

450 direction=CVS(MIDI(cadl,31,4) ) 

460 poblacion=CVS(MID*(cadl, 35 J 4 )) 

470 domiciIiacion$=NIQ$(cadi, 39,153 
480 ifiportet=HID$(cadt, 54 , 6 ) 

490 codl$=f 1 ID$(cad$, 60 , 4 ) 

500 IF ol=“ 3 ” THEN GOSUB 3000 :GOSUB 2000 

502 IF o$=" 5 " THEN GOSUB 4000 :GOSUB 2500 

504 IF o$="l* THEN GOSUB 5000 :GOSUB 6000 

510 cad$=STRING$( 63 ,CHR$( 0 )):noi»fidat$="a: carti tex":r 

oaf nndl="a: carti. key" :nu»f i *=5 

520 ran*=l:da$=codl$: tip *=2 

530 GOSUB 10440 

540 IF ferrorXOO AND ferrorXOlOS THEN 20000 

550 IF ferror *=103 AND o$ 0 "l” THEN LPRINT CHRI( 12 ):G 0 

TO 10 

555 IF terrorK =103 AND o*="l" THEN o*=INPUT$(l):G 0 T 0 1 

0 

560 noffibre$=MIDI(tad$, 1 , 29 ) 

565 rya$=NID$(cad$, 30 ,l) 

570 direction=CVS(MIDJ(cad$, 31 , 4 )) 
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!";cod!$;nofitbre 


580 poblacion=CVS(HIDt(cad$,35,4)) 

590 doffilciiiacicn$=M1D$0cad*,33,155 
600 ii’»portsf = nI!}$! cadv 54,6? 

610 codli=MID*(cad$,60,4) 

620 IF codl$kod2t AND oiO'l" THEN LPRINT CHR$(12):G0 
TO 10 

622 IF codi$)ccid2$ AND o$='l" THEN o$=INPUT$( 1):GOTO 1 
0 

625 contador=contador+l: IF contador=60 AND o$0"i" TH 
EN LPRINT CHR$(12):contador=0:IF o$="3" THEN GOSUB 300 
0 ELSE GOSUB 4000 

627 IF contador=26 AND ot="l" THEN u$=INPUTf(1).*corstad 

or=0: GOSUB 5000 

630 IF o$-”3" THEN GOSUB 2000 

632 IF o*=*5" THEN GOSUB 2500 

634 IF ot="l“ THEN GOSUB 6000 

640 GOTO 510 

2000 REM- iispresion 

2010 LPRINT USING"! \ \ 

##,### **#,#11 \ \ \ 

$ j dir sc cion;pob1acion;do 
mcihacionliistportef 
2030 RETURN 

2500 REM- iispresion 

2510 LPRINT USING”! ! ! ! t» 

#,###”; cotjl$j nombr&$; direcc ion 
2520 RETURN 

3000 LPRINT ”L L I S T A T D ARTICLES "ILPR 
INT TAB(40)J"t* Data del Ihsiat : *;fechaet 
3010 LPRINT 

3015 LPRINT "CODI DESCRIPCIO 

P.V.P P C U DISTRIBUIDOR DATA” 

3020 LPRINT ... - 

_____ _____ H 

3030 RETURN 

4000 LPRINT ”L L I S T A T 0 ' A R T I C L E S ":LPR 
INT TA6(40>;”** Data del Uistat I "Sfschael 
4010 LPRINT 

4020 LPRINT “CuDI DESCRIPCIO 

P.V.P " 

4030 LPRINT ”-- - 



10020 REM deciderimales 
nuisericos (2) alfanumcom (3) 
10030 REM - 


alfalknuaeruoU) alfa 


10040 PRINT FNloc$txS,yX);STRINGSCcapK+decX+1,” *) 
10050 »=**1t=Olrt=”":falloX=0:puntoK=0 
10060 PRINT CHRK7) 

10070 xlS=x* 

10G8u PRINT rNIot$( xlX,y») 51 ft=iNf'UTt{ 1 # 

10090 r=ASC(r$) 

iOlOO IF r=13 THEN 10170 

10110 IF r<32 OR r>255 THEN 10080 

10120 IF r=I27 AND t)0 THEN t=t-l:t*=LEFTt(tt,t): PRIN 

T FNlocWrf.yUjJt*;* ":GOTO 10080 

10130 IF r=127 AND t=0 THEN 10080 

10140 t=t+l 

10150 IF tkapX+decX THEN t=t-i:GCTD 10080 
10160 tl=t$+r$:PRINT FN1oct<xS,y*>51*:GOTO 10080 
10170 REM-validation- 


10180 

10190 

RETURN 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 


IF aifaX=2 THEN RETURN 

IF alfaS=3 THEN t*=tl+STRING*(cap*-LEN(tl),” "): 

FOR nuinericoS=l TO LEN(tl) 
r$=MID$(t$,nutteritot,li 

IF (r$<"0“ OR rl>"9”) AND r$<>" " THEN falloXd 
IF r$=" " THEN puntoS=puntoM 
NEXT niiwericoK 

IF falloS=l OR puntoXH THEN 10000 

t#=CDBL(VAL(t$)) 

t#=t#*10*dec* 

t#=INT(t#) 

t#=t#/10 A decX 

RETURN 

REM-fecha- 


10320 REM 


la fecha sieaipre 6 digitos 


10330 REM 


4040 RETURN 

5000 PRINT dl: PRINT "L L I S T A T D A R T I C L 

E S ” 

5010 PRINT 

5025 PRINT "CODI DESCRIPCIO F' 

V.P P.C.U DISTRIBUIDOR DATA” 

5020 PRINT - -- 

_ _-_N 

5030 RETURN 

6000 REM. i lisp res ion 

6010 PRINT USING”! ! ! 1 #* 

*,**# I##,### ! ! ! !”;codl$;noissbre$ 

jdireccionjpoblacionjdosi 

ldliaciontjiaportel 

6020 RETURN 

10000 REM-control de digitos—.. 


10340 IF LEN(fethal)<>6 THEN fechal=”falIo!":RETURN 
10350 fl=VAL(MIDI{fechaf,l,2)} 

10360 f2=VAL(MID$(fechat,3,2)) 

10370 f 3=VAL(MIDJ(f echaJ,5,2)) 

10380 IF fl<l OR f2<1 OR fl>31 OR f2>12 THEN fecha$=”f 
alio!"IRETURN 

10390 f4=(f2=1)+(f2=3)+(f2=5)+<f2=7)+<f2=8) + (f2=l0)+(f 
2 = 12 ) 

10400 IF f1)30 AND NOT f4 THEN fecha$="fallo!":RETURN 
10410 IF f1)29 AND f2=2 THEN fetha$="fallo!":RETURN 
10420 IF f1>28 AND f2=2 AND f3 MOD 4=0 THEN fecha$="fa 
1lo!":RETURN 

10425 fechat=MIDt(fecha$,l,2)+"-"+MID4(fechal,3,2)+”'" 
+HIC4(fechat,5,2) 

10430 RETURN 

10440 REM-ficberos- 


10010 REM xX=colu#sna yX=fiIa capS=capacidad 


10450 REM 
10460 REM 
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10470 RED 
10480 REM 
10490 REM 
10500 REM 
10510 REM 


10520 REM 
10530 REM inicio 
10540 BUFFERS 10 
10550 longreg*=LENicad$) 

10560 OPEN ”K",nui8fiS,nQ»fidaU,no!itfiind$,2,longreg)S 
10565 longregX=L£N(cad$) 

10570 FIELD nuntfiJS,longregSS AS fid 
10580 ON tip* G0SU8 10630,10710,10820,10930.11000,1109 
0 

10590 IF tipJKl OR tipSS>6 THEN 10620 
10600 resS = C0NSl3LIQAf£{nuoifiir 
10610 CLOSE nuafiJ! 

10620 RETURN 

10630 REM lectura de una clave 
10640 resS=SEEKKEY<nusf i JS, 0, ranJS, da$) 

10650 IF resJSOO THEN ferrorJS=resJl:RETURN 

10660 ferrorJS^O 

10670 nui»*=FETCHREC<nusfili) 

10680 SET nuifiS,ruM 
10690 cad$=fic$ 

10700 RETURN 

10710 REM — lectura de la clave siguiente 
10720 resJKS£EKKEY(nu!»fil!,0,ranSS,cla$) 

10730 IF resJSOO THEN ferrorJS=resJ!:RETURN 

10740 ferror*=0 

10750 resS=SEEKNEXT(nu#fiIS,0) 

10760 IF resJSOO AND resJSOlOl AND resJSO102 THEN ferr 

orK=resSS: RETURN 

10770 terrorJC=0 

10780 nu«5£=FETCHREC{ nu«f i *) 

10790 GET nuffifIS,nu»S 
10800 cadl=fid 
10810 RETURN 

10820 REN lectura de la clave anterior 
10830 resJS=S£EKKEY(nu»f i %, 0, ranil, c la$) 

10840 IF resJSOO THEN f error JS=res?S:RETURN 

10850 ferror5S=0 

10860 res5S=SEEKPREVinumf iJS,0) 

10870 IF resJSOO AND resJSOlOl AND resSO102 THEN ferr 

or%=resS:RETURN 

10880 ferrorJ=0 

10890 rsu(ft%=FETCHRECCnusif it) 

10900 GET nufifiJS.nusJS 
10910 cadt=fid 
10920 RETURN 


11010 res*=SE£KKEY(nu»fiX.O,ranJS.dat) 

11020 IF resSS=0 THEN ferror*=900: RETURN 
11030 ferror£=0 
11040 LSET fic$=ead$ 

11050 resJS=ADDREC(nufiifi£,0,ranJS.claO 
11060 IF resJSOO THEN ferrorJf=resJ5:RETURN 
11070 ferrorSS=0 
11080 RETURN 

11090 REM - modificacion de registros 

11100 resJS=SEEKKEY(nu»fiJS,0,ran)!,da$) 

11110 IF resJSOO THEN ferrorS=resJ:RETURN 
11120 ferror)S=0 
11130 nusJS=FETCHR£Cinusf it) 

11140 GET nuisfiJS.nussJS 
21150 LSET fid=cad$ 

11160 PUT nussfiJ 
11170 RETURN 

11180 REM-borrado de la pantalla ~ 


11190 REM pri.linSS=l linea ult 1 in£=ultifita Iinea 
n.colJSd columna 

11200 REM ult col)S=ultiii!a columna 

11210 REM —... 


11220 FOR plJS=pri. linJS TO ult.linJS 

11230 PRINT FNlocKpri colS,plJ)fSPC(u!t colll-pri colJS 

) 

11240 NEXT pi* 

11250 RETURN 

11260 REM-narco de la pantalla- 


11270 11$=CHR$( 134J+STRINGK87, CHR$( 138) )+CHR$( 140) 
11280 PRINT d*;m 
11290 FDR pl=l TO 26 


21300 PRINT CHRK 133) JSTRINGK87,CHRK32)) JCHRK 133) 
11310 NEXT pi 

11320 PR I NT CHRSf 135) i STRINGtf 87, CHfi$ f 138)) i CHRK 1 4 1) 
11330 FOR pi=l TO 1 

11340 PRINT CHRS(133)jSTRINGS(87," ");C'HRK133) 

11350 NEXT pi 

11360 PRINT CHRK 131)}STRING!(87,CHRK 138)) jCHR$( 137) 


11370 RETURN 

11380 REM-correct© s/n 


11390 r$=”WHILE dO"S" AND dO"N" 
11400 ddNPUTKl) 

11410 UEND 

11420 IF d=“S" THEN bien*=l ELSE bien*=0 
11430 RETURN 

11440 REM-micializacion- 


10930 REM - borrar un registro 

10940 resS=SEEKKEY(nusfi*,0,ranS,da$) 

109S0 IF resJSOO THEN ferrorSS=resJS: RETURN 

10960 ferrorSS=0 

10970 res£=DELKEY<nuiaf i£, 0) 

10980 IF resJSOO AND resJSOlOl AND res5SO102 AND resX< 
>103 THEN ferror£=res£:RETURN 
10990 ferrorS=0:RETURN 
11000 REM-altas de claves 


11450 d$=CHRi(27)+"E"+CHR$(27?+"Y" 

11460 DEF FN LQCKx,y)=CHRK27)+"Y"+CHR$(32+y)+CHRK32 
*x) 

11470 RETURN 

11480 REM c.digitos 10000,fetna 10310,archives 10440,b 
orrado 11180,narco 11260,correc to 11380,inicialiiacion 
11440 

11500 REM-linpia iinea fsensajes- 

11520 PRINT FNlocK5,28)i" 

k« «*siw *■•*».** 
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*:RETURN 

20000 PRINT cl$ 

20010 PRINT FNloc$(i0,10)5”[[ ERROR !! : Coapruebe si 
si disco del iapulsor 'A' ss el correcio.” 

20020 PRINT FNlocl(10,12);"Si es correcto pulse (INS) 
en caso contrario caabielo y pulse (CAN) 8 
20030 PRINT FNloctCi0,28)j 
20040 GQSUB 11380 

20050 IF bien?=l THEN PRINT FNloclilO,28)i"Error *;ERR 


GESTSON 

en la linea ";£RLj“ Llase al servicio tecnico "j:F0 
R g=l TO 5000:NEXT glCHA 
IN "»enu 

20060 IF ferrorOO THEN GOTO 20 
20070 RESUME 20 


CREA BAS 


10 G0SUE 11440 
20 6GSUB 11260 

25 PRINT FNloc$(28,14)i:INPUT “Priiner nuaero de factur 
a : “.pri.fac 

30 PRINT FNloct(28,14)j“£SP£RE UN MGMENT0. PGR FAVOR.. 

I V 

40 PRINT FNlocl(5,28)j"[[ No toque el tedado !! 8 
50 BUFFERS 10 

60 CREATE 2, 8 a:cdien tex*,“a:cdien.key <, ,2,135 
70 res*=C0NSGLIDATE(2) 

80 CLOSE 2 

90 OPEN *R" ,1i“alalbaran.tex",57 

100 FIELD 1,3 AS a*,6 AS b$,40 AS c$,4 AS dl,4 AS et 

110 LSET at=” ” 

120 LSET bt=" 

130 LSET cl=STRING*{40,“ "1 
140 LSET dl=MKSI<0) 

150 LSET e$=MKS$(l) 

160 PUT 1,1 
170 CLOSE 1 

180 OPEN *R*,3,*a:re5u»en.tex",25 

190 FIELD 3,4 AS rt,6 AS a*,3 AS b$,4 AS c$,4 AS dt,4 

AS el 

200 LSET a$=" 

210 LSET bt=" ’ 

220 LSET cl=MKS$(0) 

230 LSET d$=MKS$(2):LSET e$=MKS$(pri fad:LSET rl=MKS$ 

( 0 ) 

240 PUT 3,1 
250 CLOSE 3 

251 CREATE 5,*a:iarti.lexVa;carti.key\2,67 
252 res*=C0NS0LIDATE(5) 

253 CLOSE 5 
260 CHAIN ’senu 

10000 REM-control de digitos- 

10010 REM xl=coluana y*=fila cap*=capacidad 
10020 REM dect=deci»ales alfaS=nu«terico(l) alfa 

nunericos (2) alfanuacoi# (3) 

10030 REM - 

10040 PRINT FNloc$(xX,y*);STRING$(cap*+decX+l, 8 _') 
10050 tl=*':t=0:r$="“:fallo*=0:puntoX=0 
10060 PRINT CHRIC7) 

10070 xlX=xX 

10080 PRINT FNloc»(xl*,yX);:rl=INPUTl(l) 

10090 r=ASC«rl> 

10100 IF r=13 THEN 10170 


10110 IF r<32 OR r>128 THEN 10080 

10120 IF r=127 AND t>0 THEN t=t-l:t$=LEFTI(tl,t): PRIN 

T FNlocl(xl!,y*);tir.":G0T0 10080 

10130 IF r=127 AND t=0 THEN 10080 

10140 t=t+l 

10150 IF t>cap*+dec* THEN t=t-l:G0TG 10080 
10160 tl=t$+rl:PRINT FNlod(xJ,y5i);tl:GGTG 10080 
10170 REM-validanon- 


10180 IF alfaX=2 THEN RETURN 

10190 IF alfa*=3 THEN tt=t$+STRINGI(capX-LEN(tt),” “): 
RETURN 

10200 FDR nuaencoUd TG LEN(tl) 

1021O r$=MIDIf tt. nij»prko*, 1) 

10220 IF (rl<"0“ OR r$>"9 8 ) AND r$<>\“ THEN faiio*=l 
10230 IF rl=“.“ THEN puntoX=puntoX+l 
10240 NEXT nuaerico? 

10250 IF falloX=l OR puntoXM THEN 10000 
10260 t#=CDBL(VAL(tl)) 

10270 t#=t#.T10‘ded 
10280 t#=INT(t#> 

10290 t#=t#/10'decS 
10300 RETURN 


10310 REM-fecha- 

10320 REM la fecha sieapre 6 digitos 


10330 REM 


10340 IF LEN(fecha$)<>6 THEN fecha$="fallo!":RETURN 
10350 fl=VAL(MIDI{fecha$,l,2)) 

10360 f2=VAL(MIDI(fecha$,2,4)) 

10370 f3=VAL(HI0l(fechal,4,6)) 

10380 IF fl<l OR f2<1 GR f1)31 OR f2>12 THEN fechal="f 
alio! 8 :RETURN 

10390 f4=(f2=1)+(f2=3)+(f2=5)+(f2=7)+(f2=8)+(f2=10)+(f 
2 = 12 ) 

10400 IF f1)30 AND NDT f4 THEN fechat="falloRETURN 
10410 IF f1)29 AND f2=2 THEN fecha»=“fallo!":RETURN 
10420 IF f1)28 AND f2=2 AND f3 MOD 4=0 THEN fechal=”fa 
llo!“:RETURN 
10430 RETURN 

10440 REM-ficheros- 


10450 REM 
10460 REM 
10470 REM 
10480 REM 
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GESTION 

10490 REM 
10500 REM 

10510 REM - 


10520 REM 
10530 REM inicio 
10540 BUFFERS 10 
10550 IongregX=LEN(cad$) 

10560 OPEN "K",numfi% ; nomfidat$jnomfiind$,2,longregX 
10570 FIELD numfi%,longregX AS fief 
10580 ON tip* 6GSUB 10630,10710,10820,10930,11000,1109 
0 

10590 IF tipKl OR tipX>6 THEN 10620 
10600 resX=CGNSGLIOATE(nuafi%) 

10610 CLOSE numf IS 
10620 RETURN 

10630 REM lectura de una clave 
10640 r esX=SEEKKEY(nusfiX,0,r anX,c1a$) 

10650 IF resXOO THEN ferror*=resK:RETURN 

10660 ferrorX=0 

10670 num£=FETCHREC(numfi%) 

10680 GET numf , numX 
10690 cadt=fic$ 

10700 RETURN 

10710 REM — lectura de la clave siguiente 
10720 r=SEEKKEY(numfiX,0,r anX,c1at) 

10730 IF resKOO THEN ferror£=resS: RETURN 

10740 terrorX=0 

10750 resX=SEEKNEXT(nu8fiX,0) 

10760 IF resXOO AND resXOlOl AND resXOIOZ THEN ferr 

orKsres*:RETURN 

10770 ferrorX=0 

10780 nuii=FETCHREC(numfiX) 

10790 GET nui8TiX,nusX 
10800 cadf=fic$ 

10810 RETURN 

10820 REN lectura de la clave anterior 
10830 resX=SEEKKEY(numfiX,0,ranX,c1at) 

10840 IF resXOO THEN ferrori=resX:RETURN 

10850 ferrorX=0 

10860 resX=SE£KPREV(i™fiX,0) 

10870 IF resXOO AND resXOlOl AND resXO102 THEN ferr 

or%=res2:RETURN 

10880 ferrorX=0 

10890 nu»X=FETCHREC(nu®iiX) 

10900 GET nuRfiX.nuntX 
10910 cadt=fic$ 

10920 RETURN 

10930 REM - borrar un registro 

10940 resX=S££KKEY(nu»fiX,0,ranX,clat) 

10950 IF resXOO THEN ferrorX=resX:RETURN 

10960 ferrorX=0 

10970 res)t=DELKE¥(numf i%, 0) 

10980 IF reaXOO AND resXOlOl AND resX<>102 AND resX< 
>103 THEN ferrorX=resX:RETURN 
10990 ferrorX=0:RETURN 

11000 REM-alias de claves 

11010 resX=S£EKKEY(nu»fiX,0,ranX,cla$) 


11020 IF resX=0 THEN ferror*=900:RETURN 

11030 ferrorX=0 

11040 LSET fict=cadt 

11050 r e5X=ADDR£C(nu»fiX,0,r anX,c1at) 

11060 IF resXOO THEN ferrorX=resX:RETURN 
11070 ferrorX=0 
11080 RETURN 

11090 REM - fflodsficacion de registros 

111 00 resX=SEEKKEY f numf iX,0,ranX, f 1at) 

11110 IF resXOO THEN ferrorX=resX:RETURN 

11120 ferrorX=0 

11130 nu»X=F£TCHREC(numfi%) 

11140 GET numf iX.nusaX 
11150 LSET fict=cadt 
11160 PUT numfi* 

11170 RETURN 

11180 REM-borrado de la pantalla — 


11190 REM pn.IinX=l linea ult. 1 in%=ultima linea p 
ri.colX=l colusma 

11200 REM ult.colX=ulti!aa coluiana 

11210 REM - 


11220 FDR plX=pri.linX TO uit.linX 
11230 PRINT FNloct(pri.colX,plX)fSPC(ult.colX-pri.colX 
) 

11240 NEXT plX 
11250 RETURN 

11260 REM-marco de la pantalla- 


11270 11t=CHRt(134)+STRINGt(87,CHRt(138))+CHRK140) 
11280 PRINT cltjllt 
11290 FOR pl=l TO 26 

11300 PRINT CHRt(133)j STRINGt(87,CHRt(32))!CHRt(133) 
11310 NEXT pi 

11320 PRINT CHRt (135!jSTRING$t87,CHR$(138)iiCHR»(141) 
11330 FOR pl=l TO 1 

11340 PRINT CHRt( 133) j STRING! (87," *)|CHRtU33) 

11350 NEXT pi 

11360 PRINT CHRt (131)j STRINGS87,CHR$(138))j CHR$(137) 
11370 RETURN 

11380 REM -correcto s/n- 


11390 r$="":UHILE rtO'S* AND rtO"N" 
11400 rt=INPUTt(l) 

11410 WEND 

11420 IF rt="S" THEN bienX=l ELSE bienX=0 
11430 RETURN 

11440 REM-inicializauon- 


11450 c1$=CHR$C 27)+"E"+CHR$i27>+"Y" 

11460 DEF FN L0CI(x,y)=CHR$(27)+"Y"+CHRt(32+y)+CHR$(32 

+x) 

11470 RETURN 

11480 REM c.digit-os 10000,fecha 10310,archives 10440,b 
orrado 11180,marco 11260,correcto 11380,iniclalizacion 
11440 

11500 REM-limpia linea isensajes- 

11510 PRINT FNloc$(5,28)j* 

•:RETURN 
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LA 
TALL 

Gigantes te espera cada martes en tv kiosco. Una revista impres- 
cindible para todo aficionado. Gigantes del Basket te ofrece las 
ultimas noticias, las mejores fotos, las opiniones que te mteresan , 
las entrevistas que esperas, las anecdotas que te divierten y los 
los comentarios que te gusta conocer. 

Pldela todas las semanas, porque Gigantes da la talla. 






Golf, eficacia 
sobre la hierba 


Jaime Dorda 

En mas de una ocasion nos habremos preguntado el porque de las 
grandes sumas ganadas por los grandes del golf. 

Sin entrar en pormenores de dificil evaluacion , diriamos que el golf 
arrastra multitudes principalmente en los paises anglosajones, y que las 
grandes masas mueven dinero. 

Para el que alguna vez haya pensado esto\ y tambien para el que 
quiera practicar un deporte que reqmere una gran concentracion y 
precision , aqui tiene la oportunidad de demostrar sus cualidades. 



c 

uando recibimos este juego, pensamos 
rapidamente en la posibilidad de publicarlo 
debido, principalmente, a que se salia un poco de 
lo recibido hasta la fecha. Ya hemos visto muchos 
juegos, y una gran parte de ellos pertenece al 
grupo de los «guerreros» y otra a los de cartas o 
juegos, digamos, de salon. 

Con el juego Golf, podremos darnos un paseo 
por el campo a la vez que jugamos a este 


entretenido deporte, sin necesidad de movernos 
de casa. 

Lo principal para lograr un golpe interesante 
reside en un buen calculo de la distancia y la 
consecuente aplicacion de la potencia del golpe. 
Pero tampoco debemos olvidar vigilar el sentido 
del aire, cosa que podremos hacer fijandonos en 
la banderita que veremos en la zona central de la 
pantalla. Segun mire esta a derecha o izquierda, 
de alii vendra el aire. 

Despues de estas consideraciones, podremos 
introducir la cifra de potencia que queramos 
darle. Esta tendra que es/ar comprendida entre 0 
y 99, indicandola siempre con dos cifras. 

El niimero de hoyos que podremos realizar 
sera de 1 a 6 y variara la dificultad segun 
vayamos pasando de uno a otro. 

Entre las dificultades antes mencionadas se 
hayan, como en todo buen campo de golf que se 
precie, los bankers, las zonas de arena y las de 
hierba. En estas la bola sera frenada y hara que 
gastemos otros golpes que penalizaran nuestro 
marcador. 

Tampoco deberemos descuidar la posicion 
donde se encuentran los arboles, ya que podemos 
chocar la bola con ellos. 

Otra cosa que puede retrasarnos son las 
cuestas, si la pelota no llega arriba de ellas 
volvera a caer. Retraso nos causara tambien el 
dar un golpe que saque la bola de la pantalla si 
esto ocurre, tiraremos desde el mismo sitio. 

Al final de cada partida se nos indicara los 
golpes efectuados y logicamente, ganara el que 
menos haya empleado en toda la partida. 

j j j jSuerte!!!! 








10 REM MI GOLF 

20 GOSUB 2090iREM CARACTERFR 
30 MODE 1 

40 CLEAR*BOSUB 1720*REM PRESENTACION 
30 0OSUB 1260*REh AGRUPA LOS CARACTER 
ES 

60 REM INIC1ALIZACION 
70 MODE O 

BO INK 0,1*INK 1,24*INK 2,20*INK 3,6* 
INK 4,26*INK 5,0*INK 6,2*INK 7,8:INK 
8,9*INK 9,10*INK 10,15*INK 11,4*INK 1 
2,26 n 
90 WINDOW #1,1,20,1,4 
100 WINDOW #2,1,20,5,13 

110 PAPER #2,HiCLS#2:PAPER #0,11*CLB 

#0 

120 PAPER #1.7sCL8 WliPEN #1,5 
130 do-2 
140 BORDER O 

150 toyo*0•gtotal-Osgolpes-0 1 screen*0 

160 toyo—toyo+1* IF toyo>ht THEN GOTO 
2680 

170 DIM m(20,25)*FOR a-0 TO 19:FOR b- 

O TO 24:NEXT:NEXT 

1B0 5creen*Bcresn+l 

190 CLS#0:CLS#1*CLS#2 

200 ON screen BOSUB 2900,2990,3100,32 

20,3360,3530 

210 gd pes-0 

220 REM LLAMADA AL MOVIMIENTO DE LOS 
PATOS 

230 IF screen-5 THEN pato-1:xp-140:EV 

ERY 10,1 BOSUB 1220 

240 IF toyo>ht THEN GOTO 2680 

250 LOCATE ho+l,yo:PEN 10*PRINT CHR*( 

255) 

260 x«(INT(RND(i)*2)+2)*32 

270 h»x/32:LOCATE h.al*PRINT ch$;ixe- 

h 

2P0 MOVE x,48:TAG:GRAPHICS PAPER llsG 
RAPHICS PEN 3,1:PRINT CHR*(144)|;TAGO 
FF 

290 q«((RND(l)*9)+4)/10 
300 fuerza*»CHR*(176)+CHR*(177)+CHR*< 
178):golpes*-CHR*(179)+CHR*(180)+CHR* 
(181) 

310 LOCATE #1,13,3:PRINT #1,golpes*+" 
O" 

320 PEN #1,5 

330 c an t i *=CHR* (226) +CHR* (227) +CHR* (2 
28) 

340 LOCATE #1,5,1:PRINT #l, a> HOYO Num" 
| toyo 

350 LOCATE #1,3,3:PRINT#1,fuerza* 

360 LOCATE #1,3,4:PRINT#1,conti* 

370 IF q< —1 THEN PEN #1,0:LOCATE #1,1 
O,3:PRINT#1,CHR*(192) ELSE PEN #1,0:L 
OCATE #1,10,3:PRINT#1,CHR*<191) 

380 PEN #1,5 
390 CLEAR INPUT 

400 sb*=INKEY*: IF sb*-"" THEN GOTO 40 
O 

410 sc#—INKEY#: IF bc*-"" THEN GOTO 41 
0 

420 sb-VAL(sb#):sc-VAL( bc#): ea-sb *10+ 
bc: LOCATE #1,6,3:PRINT #l,ea:IF ea<3 
THEN ea=2 

430 IF screen-6 AND x>400 THEN IF ea} 
10 THEN ea—10 

440 golpes-golpes+1sLOCATE #1,13,3:PR 
INT #l,golpes#; " ; golpes: gtotal=gtot 

al + 1 

450 SOUND 1,70,10,7,0,0,20*SOUND 1,40 
,2,15,0,0,10 

460 IF do=2 THEN PEN 2:LOCATE h,al:PR 
INT eg#:PEN 1 

470 IF do-0 THEN LOCATE h,alSPRINT cj 
#:PEN 1 

480 ea-INT(ea*q):IF ea>99 THEN ea=99 
490 IF ea<3 THEN ea=2 

500 IF m((x+32)/32,ker)=3 THEN ea-INT 

(ea*0.7):IF ea<3 THEN ea=2 

510 IF m<<x+32)/32,ta)=4 THEN ea=INT( 

eatO.5):IF ea<3 THEN ea=2 

520 ab=ea*10 

530 ff=ab 

540 LOCATE ho+1,yo-1:PRINT" "*LOCAT 

E ho+i,yo:PEN 10:PRINT CHR#(255> 

550 TAG 

560 IF do-O THEN aa=x x ab-x-ab: ac—4 
570 IF do=2 THEN aa=x:eb=ab+x:ac=4:ff 
=ff+x 
580 mn=48 

590 IF screen-5 THEN DI:GRAPHICS PEN 
12,0:GRAPHICS PAPER 6:DI:TAG:MOVE xp, 
300:IF bg=l THEN PRINT pato4#;:ELSE P 
RINT pato3*j 

600 GRAPHICS PAPER 11:GRAPHICS PEN 3, 
0 

610 REM BUCLE DEL MOVIMIENTO DE LA PE 
LOTA 

620 FOR x—aa TO ab STEP ac 

630 IF screen-6 THEN GOTO 650 

640 IF x >=560 THEN GOTO 1190 

650 IF SCREEN-6 AND X>586 THEN GOTO 1 

190 

660 IF x<48 THEN GOTO 1200 

670 IF SCREEN-6 AND m(x/32,26-mn/16>= 


1 THEN GOTO 1170 

680 IF m(x/32,26—ron/16)—1 THEN SOUND 
1,500, lO, 15,0,0,30:MOVE x,innsPRINT" " 
;:ron—48*x-(ar+1)*32;TAGOFF:LOCATE ar+ 
l,bolSPRINT cf*j:TAG:MOVE x,ron:PRINT 
CHR*(144);* GOTO 850 

690 IF INT(m(x/32,26—ron/16))—5 THEN 6 
OTO 800 
700 FRAME 

710 IF do—2 THEN IF x<(<ff-aa)/2)+aa- 
20 THEN mn*(mn+6)-SQR(mn)+7 ELSE mn-< 


Serie 


ron-6)+SQR(mn>-7 

720 IF do-0 THEN IF x>((aa-ab)/2)+ab+ 

20 THEN mn*(mn+6>-SQR(mn)+7 ELSE ron=( 

mn-6)+SQR(mn)-7 

730 IF inn>170 THEN ron-170 

740 IF ron<48 THEN mn=48 

750 IF screen-6 THEN BOSUB 1140 

760 MOVE x,ron 

770 PRINT CHR#(144); 

7B0 NEXT*GOTO B50 

790 REM BUCLE MOVIMIENTO EN LA CUESTA 
BOO ab—x:FOR x=x TO 330 STEP -4 
810 mn-mn-2: IF ron<48 THEN mn»48 
820 IF do—2 THEN MOVE x, ron: PRINT CHR* 
(144);: SOUND 1,mn*5,4,10, O,O, 3 
830 IF dD-0 THEN LOCATE 16,19* TAGOFF: 
PRINT cd*;cd*: TAG:MOVE x— 16, mn:PRINT 
CHR* (144) SOUND 1,ron*10,4,10,0,0,3 
840 NEXT 

850 IF x>560 AND NOT SCREEN-6 THEN x» 
x-ea*10:MOVE x,48:PRINT CHR*(144);:go 
1pes-golpes+1 

B60 IF SCREEN-6 AND x>564 THEN X-564: 
IF ron<115 THEN ron-115 

870 IF x<44 THEN x=x+ea*10:MOVE x,4B: 
PRINT CHR#<144);:golpes-golpes+1 
B80 TAGOFF 

890 IF m((x/32),yo)=2 THEN SOUND 1,30 
,2,15:LOCATE ho,yo-1:PRINT cd*;cd*:LO 
CATE ho+1,yo:PEN 3:PRINT CHR*(22)+CHR 

* <1)+CHR*(144)+CHR*(22)+CHR*(O):FOR r 
e-1 TO 2000:NEXT:do=2:al=22:ERASE m:G 
OTO 160 

900 IF screen-5 THEN El:LOCATE #2,5,3 

• PEN #2,6:PRINT#2,STRING*(14,143) 

910 ha—INT(x/32) 

920 IF do-2 AND x<-ho*32 THEN bb-ha:b 
c-1 

930 IF do=2 AND x>(ho-l)*32 THEN bb-h 
a+2tbc-l 

940 IF do-O AND x>(ho-l)*32 THEN bb-h 
a+2:bc—-1 

950 IF dD-0 AND x<-ho*32 THEN bb=ha:b 
C—Is IF bb<2 THEN bb-2 
960 IF bb>19 THEN bb-19 
970 IF do-? THEN ca*=cro* 

9B0 IF do-0 THEN ca*-cn* 

990 IF screen-6 AND do=2 THEN IF xa=l 
4 AND al-19 THEN LOCATE 15,19:PRINT" 

1000 REM CORRE EL JUGADOR 
1010 FOR xa-h TO bb STEP bc 
1020 IF xa>19 THEN xa=19 


<22 THEN al-al+1 
1080 NEXT:PEN 1 
1090 do-2 

11O0 IF x >ho*32 THEN do-O 
1110 IF do-2 THEN h-(x-12)/32:LOCATE 
h-l,al:PRINT cd*;ch«;cd«:PEN 1 
1120 IF do-0 THEN h= (x+8) /32-*2: LOCATE 
h,a):PRINT ciiiPEN 1 
1130 GOTO 350 

1140 IF x>400 AND mn<-U5 THEN nn-115 
1150 IF x >576 THEN x-576:ab-x/32a GOTO 
850 

1160 RETURN 

1170 IF xa<2 THEN xa-2 
11BO SOUND 1,500,10,15,0,0,30:MOVE x, 
ron:PRINT" ";:mn»48:x-(ar +1)*32:TAGOFF 
*LOCATE ar+l,bol:PRINT cf *; *LOCATE ar 
+6,bol:PRINT cf*;:LOCATE ar+12,bol-2: 
PRINT cf*;I LOCATE xa-1,al:PRINT cd*;c 
d*;cd*;iTAG:MOVE x,ron:PRINT CHR*(144) 
;:GOTO 850 

1190 MOVE x,mntPRINT” ";aaa-absGOTO 
7B0 

1200 MOVE x,mn*PRINT" '*; :ab-48:mn-48: 
GOTO 780 

1210 REM BUCLE MOVIMIENTO DE LOS PATO 
S 

1220 GRAPHICS PEN 12,O:GRAPHICS PAPER 
6sTAG;IF pato-1 THEN bg-O:xp*xp+4:MO 
VE xp,300:PRINT patol*;:ELSE bg-lixp- 
xp-4:MOVE xp,300:PRINT pato2*; 

1230 IF xp>448 OR xp<144 THEN pato»-p 
ato 

1240 TAGOFF:RETURN 

1250 REM AGRUPACION DE CARACTERES 

1260 GOTO 1330 

1270 ko*= ,,,, 

1280 FOR qwe-1 TO ki 
1290 READ asd 
1300 ko*=ko*+CHR*(asd) 

1310 NEXT qwe 
1320 RETURN 

1330 Ki—i1*RESTORE 1530iG0SUB 1270 
1340 cf*=ko*:ki=5:RESTORE 1540:G0SUB 
1270 

1350 cd*-ko*:ki-17:RESTORE 1550:G0PUB 
1270 

1360 cg*-ko*:RESTORE 1560:G0SUB 1270 
1370 chB-kD*:RESTORE 1570:G0SUB 1270 
1380 ci*-ko*:RESTORE 15B0:G0SUB 1270 


1030 IF screen-6 AND xa>=15 THEN al-1 
8 

1040 LOCATE xa,alsPRINT ca*:FOR re-1 
TO 50:NEXTsSOUND 1,300,5,10,0,0,10:L0 
CATE xa,al:PRINT cd*:LOCATE xa+l,al:P 
RINT cd* 

1050 IF xaXar+1) AND xa< (ar+3) THEN 
LOCATE ar+l,bDl:PRINT cf* 

1060 IF do =2 AND m(xa,al)=5 THEN al- 
al-1 

1070 IF do-0 AND ro(xa,al+1)-5 AND al 


1390 cj*=ko*:RESTORE 1590:G0SUB 1270 
1400 cro*=ko*:RESTORE 1600:G0SUB 1270 
1410 cn*=ko*:ki=9:RESTORE 1610:G0SUB 
1270 

1420 cp*=ko*:ki-17:RESTORE 1620:GOSUB 
1270 

1430 cq*=ko*:ki=ll: RESTORE 1630:G0SUB 
1270 

1440 cr*-ko*:ki-3:PESTQRF 1640:BOSUB 
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1450 ce*=ko*:RESTORE 1650:G0SUB 1270 
1460 patol*=ko*:RESTORE 1660:G0SLJB 12 
70 

1470 pato2*=koft:RESTORE 167G:G0SUB 12 
7C> 

14G0 pato3*=ko*:RESTORE 168O:G0SUB 12 
70 

1490 pato4*=ko*:ki=l1:RESTORE 1690:GO 
SUB 1270 

1500 C5*=k0*: ki=17:RESTORE 1700:G0SUB 
1270 

1510 ct*=ko*xki=0 
1520 RETURN 

1530 DATA 15,10,224,11,8,223,11,8,15, 

8,222 

1540 DATA 32,8,11,32,10 

1550 DATA 15,2,203,11,G,201,22,1,G,15 

, 3, 200, lO, G, 202, 22, O 

1560 DATA 15,2,207,11,G,205,22,1,8,15 
,3,204,10,G,206,22,0 

1570 DATA 15,2,207,11.8,208,22,1,8,15 
,3,209,10,8,206,22,0 

1580 DATA 15,2,213,11,8,211,22,1,8,15 
,3,210,10,8,212,22,0 

1590 DATA 15,2,217,11,8,215,22,1,8,15 
,3,214,10,8,216,22,0 

1600 DATA 15,2,221,11,8,219,22,1,8,15 
,3,218,10,8,220,22,0 

1610 DATA 15,10,224,15,8,11,8,222,10 
1620 DATA 15,1,143,8,22,1,15,5,182.8, 
11,15,3,244,10,22,0 

1630 DATA 15,8,184,8,15,10,22.1,183.2 

2,0 

1640 DATA 15,8,222 

1650 DATA 185,185,188 

1660 DATA 189,186,186 

1670 DATA 187,187,190 

1680 DATA 190,187,187 

1690 DATA 15,3,250,22,1,15,1,8,249,22 

.O 

1700 DATA 15,2,252,22,1,11,0,251,15,1 

,8,253,10,8,254,22,0 

1710 REM PRESENT ACION 

1720 MODE 1:INK 3,15:PEN 3:LOCATE 1,1 
:PRINT STRING*(39,238):LOCATE 1,25:PR 
INT STRING*(40,238); 

1730 FOR hh= 1 TO 24:LOCATE l,hh:PRIN 

T CHR*(238):LOCATE 40,hh:PRINT CHRS<2 

38):NEXT hh 

1740 INK 1,1:PEN 1 

1750 INK 2,20 

1760 testo*="Mi GOLF 1 ’ 


1780 x x=65:yy=240 
1790 a--=16*(x-l) 

1800 b«399-(y-l)*16 
1810 FOR 1=1 TO 7 
1G20 a*=MlD*(testo*,l,1) 

1G30 GOSUB 1B50:xx=xx+76 

1840 NEXT 1:LOCATE 3,3:PRINT.GOTO 

1960 

1B50 p=xx:D=vy:PEN 1 
1G6G LOCATE x,y:PRINT a* 

1870 FOR n=b TO b-16 PTEP-2 

1880 FOR m=a TO a+16 STEP 2 

1890 IF TEST(m,n) THEN SOUND 1,20,1,1 

O:GOSUB 1930 

1900 p=p+8 

1910 NEXT m;o=*o-10:p=xx 
1920 NEXT n:RETURN 
1930 FOR t=0 TO 7 STEP 2 
1940 MOVE p,o—t:DRAWR G,0,2 
1950 NEXT:RETURN 

1960 PEN 2: LOCATE 11, 18: PR1NT"P0R DOR 
DA *c MARTIN” 

1970 FOR az=800 TO 10 STEP -10:SOUND 

1, az,5,15:FOR av=l TO 10: NEXT:SOUND 

2, az+20,5,10:NEXT:FOR re=l TO 1000:NE 
XT:INK 2,1:INK 1,24:PEN 1 

1980 REM INSTRUCCIONES 

1990 LOCATE 5,8:PRINT"PARA GOLPEAR LA 
BOLA TIENES QUE":LOCATE 5,lO:PRINT"P 
ULSAR LA CANT IDAD DE FUERZA QUE":LOCA 
TE 5, 12:PRINT**QUIFRES DARLE <01 A 99) 
LOCATE 5, 14: PRINT" SIEMPRE CON DOS 
CIFRAS!!”iLOCATE 12,18:PRINT"PULSA UN 
A TECLA”: CALL &BB18 

2000 LOCATE 15, 4:PRINT ,, OBSTACULOS" :L0 
CATE 5,8:PEN 3:PRINT CHR*(127);" BUN 
KER=suelo con mucha arena LOCATE 5, 
10:PRINT CHR*(222);" HIERBA LARGA.pe 
ro pro-f unda " : LOCATE 5, 12: PRINT 

CHR*(225);" BAJADA 

2010 LOCATE 5,14:PRINf'en arbol rebot 
a la pelota ":LOCATE 5,I6:PR 

INT"en hierba y arena pierde fuerza " 
2020 LOCATF 7,18:PRINT"PULSA UNA TECL 
A PARA SEGUIR" : CALL &BB1S 
2030 LOCATE 5,8:PRINT"Bi la pelota se 
sale del campo *’: LOCATE 5, 10: PRINT" 
vuelves a tirar del mismo lugar":LOCA 
TE 5,12:PRINT"anotandote un punto de 
mas" 



2040 LOCATE 3,14:PRINT CHR*(191):LOCA 
TE 5,14:PRINT"viento a favor en ambos 
sentldos":LOCATE 7,15:PRINT M deI jueg 
o (a lzq. y a derLOCATE 3,16:PRIN 
T CHR*(192):LOCATE 5,16:PRINT"viento 
en contra en ambos sentides" 

2050 LOCATE 5,18:PRINT" CUANTOS HOYO 
B QUIERES JUGAR LOCATE 16,20:CLEAR 
INPUT:INPUT "de 1 a 6 ",ht 
2060 IF ht<1 OR ht >6 THEN GOTO 2000 
2070 CLS:INK 3,20:RETURN 
20S0 REM CARACTERES 
2090 SYMBOL AFTER 175 

2100 SYMBOL 176,234,138,13G,202,138,1 
3B,13B,142 

2110 SYMBOL 177.238,138,13G,206,140,1 
3G,138,234 

2120 SYMBOL 178,238,42,42,76,74,138,1 
38,234 

2130 SYMBOL 179,23G,13G,138.13G,234,1 
70,170,238 

2140 SYMBOL 160,142.138,138,142,136,1 
36,136,232 

2150 SYMBOL 181.238,136,136,206,130,1 
30,I30.23G 

2160 SYMBOL 182,0,6,6,0,56,40,40,40 
2170 SYMBOL 183,0,0,4,24,8,S,8,0 
2180 SYMBOL 184,0,0,0,0,36,40,24,24 
2190 SYMBOL 1G5, O,0,0,0,G,44,112,0 
2200 SYMBOL 186,0,0,0,0,16,52.14,0 
2210 SYMBOL 1G7,0,O,O,16,16,84,56,0 
2220 SYMBOL 188, O, O, 12, iO, 6G, 124,56 
2230 SYMBOL 189,0,0,48,80,34,62,28,0 
2240 SYMBOL 190,0,24,24,153.90.60.60, 
0 

2250 SYMBOL 191,12G.224,152,132,194,1 

77.142.128 

2260 SYMBOL 192,1,7,25,33,67,141,113, 

1 

2270 SYMBOL 193,0,255.170,170,170,0,0 

.O 

2280 SYMBOL 194,128,128,126,128,128,1 

28.128.128 

2290 SYMBOL 195,0,8,8,42,62,34,62,0 
2300 SYMBOL 200,0,0,56,0,0,0,0,0 
2310 SYMBOL 201,0,0,0,48.48,0,60,56 
2320 SYMBOL 202,56,58,42,42,106,72,0, 
0 

2330 SYMBOL 203,6,0,0,0,0,3,72,204 
2340 SYMBOL 204,0,128,184,128,128,0,0 
,o 

2350 SYMBOL 205,192,0.0,56.56.64,120, 
56 

2360 SYMBOL 206,56,56,40,40,104,72.0, 
0 

2370 SYMBOL 207,0,0.0,0,0,0,72,204 
2380 SYMBOL 208,3,0,0,56,56,2,60,56 
2390 SYMBOL 209,0,1,57,1,1,0,0,0 
2400 SYMBOL 210,0,0,28,0,0,0,0,64 
2410 SYMBOL 211,0,0,0,12,12,0,60,92 
2420 SYMBOL 212,28,92,64,84,86,18,0,0 

2430 SYMBOL 213,96,64,0,0,0,192,18,51 
2440 SYMBOL 214,0,0,56,0,2,2,2,2 
2450 SYMBOL 215,0,0,0,48,48,0,60,48 
2460 SYMBOL 216,50,50,50,16,16,40,0,0 

2470 SYMBOL 217,O,O,O,3,0,0,6B,102 
2480 SYMBOL 218,0,0,28,0,64,64,64,64 
2490 SYMBOL 219.0,0,0,12,12,0,60,12 
2500 SYMBOL 220,76,76,76,8,20,34,0,0 



2510 SYMBOL 221,0,0,0,192,0,0,66,198 
2520 SYMBOL 222,16,84,53,202,16,44,11 
B, 92 

2530 SYMBOL 223,G4,60,24, 16,16,16,16, 
16 

2540 SYMBOL 224,16.16,16,16,16,16,56, 
124 

2550 SYMBOL 225,1,2,5,10,21,42,85,170 
2560 SYMBOL 226,0,0,236,164,164,164,1 
64,228 

2570 SYMBOL 227.0,0,56,40,40,56,40,40 
2580 SYMBOL 228,0,0,119,85,119,17,17, 
17 

2590 SYMBOL 249,3,O,O,O,O, 4G,4G 

2600 SYMBOL 250,3,12,24,48,96,192,128 

,48 

2610 SYMBOL 251,0,0,0,0,120,0,0,0 
2620 SYMBOL 252,0,0,24,24,24,36,66,0 
2630 SYMBOL 253,0,0,0,0,0,24,24,0 
2640 SYMBOL 254,224,0,0,0,0,0,0,198 
2650 SYMBOL 255,66,66,66,66,66,66,66, 
126 

2660 RETURN 

2670 REM PUNTUACION 

26BO MODE 1:PEN 3:PAPER O: LOCATE 1,1: 
PRINT STRING*<39,238):LOCATE 1,25:PRI 
NT STRING*(40,23B) ; 

2690 FOR hh= 1 TO 24: LOCATE l,hh:PRIN 
T CHR*(238):LOCATE 40,hh:PRINT CHR*(2 
38):NEXT hh 

2700 media=gtotal/CtDyo-1) 

2710 LOCATE 8,8:PEN 1: PRINT"Numero de 
hoyos jugados ";ht 

2720 LOCATE 8,11:PRINT"Numero de golp 
se dados ";gtotal 

2730 LOCATE 5,14:PRI NT"La media de go 
lpes por hoyo"sUSING media 

2740 LOCATE 6,20:PRINT"Te atreves a o 

















tra partida s/n" 

2750 a*=INKEY* 

2760 ENT -1,2,6, 10 

2770 kJ=INT(RND*100)+100:SOUND l,kj,l 

5,S,1:SOUND 2,kj+200,15,0 

2780 SOUND 3,<INT<C RND*lOOO))+500),1 

5,8 

2790 IF a**"" THEN GOTO 2750 
2800 IF a*«"s" OR a* =, ’S" THEN GOSUB 2 
850:ORIGIN 0,0:FOR ik=0 TO 200 STEP 2 
:PLOT 0,400-1 k,2: DRAW 640,400~i k,2:PL¬ 
OT O, iksDRAW 640,Ik,2:NEXT:GOTO 40 
2810 ORIGIN 0,0:FDR ik=0 TO 200 STEP 

2820 PLOT O,400—ik , 3:DRAW 640,400-1k, 
3 

2630 PLOT 0,1k:DRAW 640,ik,3:NEXT:INK 
3,1:PAPER O 
2840 END 

2850 INK 1,26:INK 2,7:INK 3,19 

2860 FDR n= 36 TO 3 STEP -1 

2870 LOCATE n,23:PRINT cs*+ct*+cd*; 

2880 FOR r=1 TO 60:NEXT:SOUND 1,300,5 

,10,0,0,10:FOR r=1 TO 30:NEXT 

2890 NEXT:RETURN 

2900 REM pamtalla 1 

2910 ar=19:bol=10s al=22:ho=l1:yo-24;m 
<ho,yo>=2 

2920 LOCATE 1,24:PEN 10:PRINT STRING* 

(20.127) :LOCATE 1,24sPRINT CHR*(22)+C 
HR*(1)+CHR*(15)+CHR*(8)+STRING*(20,12 
6>+CHR4(22)+CHR*(0) 

2930 LOCATE 1,25:PEN 10:PRINT STRING* 

(20.127) ; 

2940 LOCATE #2,4,2:PRINT 42,ce*;SPC(4 
);cri;SPC(5);cp*;SPC(3);cr* 

2950 LOCATE #2,1,5:PRINT 42,cr*;SPC<3 
) ;cp*;SPC<5);ce*;SPC(l);cr*;SPC(3;;cp 
* 

2960 LOCATE 42,1,G:PRINT 42,SPC(2);ce 
*;SPC(3);cp*;SPC(6);ce* 

2970 ban=14-ker=24:m(ban,ker)=3:m(ban 
+1,ker)=3:m(b an +3,ker)=3:LOCATE ban,k 
er:PEN 4iPRINT STRING*(3,127) 

2980 RETURN 

2990 REM pantalla 2 

3000 ar=I4:bol=10:al=22:ho=9:yo=24:m( 
ho,vo)=2 

3010 LOCATE 1,24:PEN lO:PRINT STRING* 

(20.127) :LOCATE 1,24:PRINT CHR*(22)+C 
HR*(1)+CHR*<15)+CHR*(8)+STRING*(20,12 
6)+CHR*(22)+CHR*(0) 

3020 LOCATE 1,25:PEN lO:PRINT STRING* 

(20.127) ; 

3030 ban=5:ker=24:m(ban,ker)“3:m f ban+ 
1, ker) =3: m (ban-*3, ker) =3: m(ban+9, ker ) = 
3:m(ban+10,ker)=3:m(ban+l1,ker)=3sm(b 
an+12,ker)=3:LOCATE ban,ker:PEN 4:PRI 
NT STRING*(3,127);LOCATE ban+10,kersP 
PINT STRING*(4,127) 

3040 LOCATE #2,1,3:PRINT 42,SPC(3);cr 
*;cq*;SPC(l);cr*;SPC(3);cp*;SPC(4);cr 
* 

3050 LOCATE #2,1,4:PRINT #2,SPC(l);cp 
* 

3060 LOCATE #2,1,5:PRINT 42,SPC(8);ce 
* 

3070 LOCATE 42,1,6:PRINT 42,SPC(3);cp 

* 

3080 LOCATE #2,1,G:PRINT #2,SPC(5);ce 
*;SPC(5);cr*;SPC(6);cp* 

3090 RETURN 

3100 REM pantalla 3 

3110 ar=12:bol=10:al=22:ho=l1:yo=24:m 
(ho,yo)=2:LOCATE ar+1,bol:PRINT cf* 
3120 LOCATE 1,24:PEN 10:PRINT STRING* 

(20.127) :LOCATE 1,24:PRINT CHR*(22)+C 
HR*(1)+CHR*(15)+CHR*(8)+STRING*(20,12 
6)+CHR*(22)+CHR*(0) 

3130 LOCATE 1,25:PEN 10:PRINT STRING* 

(20.127) ; 

3140 ban=14:ker=24:m(ban,ker)=3:m(ban 
+1,ker)*3:m(ban+3,ker)=3:LOCATE ban,k 
er:PEN 4:PRINT STRING*(3,127) 

3150 m(ban-5,ker)=3:m(ban-4,ker)=3:LO 
CATE ban-5,ker:PRINT STRING*(2,127) 

3160 LOCATE 42,1,2:PRINT 42,cp*;SPC(2 
);cp*;cp*;cp*;SPC<4);cr* 

3170 LOCATE 42,3,3:PRINT 42,cp*;SPC < 
12);cr* 

3180 LOCATE #2,2,4:PRINT #2,cp*;SPC(l 
);ce*;cp*j SPC <1);cr* 

3190 LOCATE 42,1,7s PRINT 42,ce*;SPC(l 
0);ce*;SPC(5);ce* 

3200 LOCATE #2,1,9:PRINT 42,ce*;SPC(I 
);cp*;SPC(l);cf*;SPC(l);ce*;SPC(2);cr 
* 

3210 RETURN 

3220 REM pantalI a 4 

3230 ar=6:bol=21:m(ar,bol)=i:m(ar,bDl 
-1)=1:m(ar,bol-2)=1:LOCATE ar+1,bol:P 
PINT cf* 

3240 al=22:ho=l4syo=24:m(ho,yo)=2:LOC 
ATE ho+1,yo 

3250 LOCATE 1,24*PEN 10:PRINT STRING* 

(20.127) :LOCATE 19,24:LOCATE 1,24:PRI 
NT CHP*(22)+CHR*(1)+CHR*(15)+CHR*(8)+ 
STRING*(20,126)+CHR*(22)+CHR*<0) 

3260 LOCATE 1,25s PEN 10:PRINT STRING* 


(20.127) ; 

3270 ban=17:ker=24:m(ban,ker>“3sm(ban 
+1,ker)=3:LOCATE ban,kertPEN 4:PRINT 
STRING*(2,127) 

3280 LOCATE 42,1,2sPRINT #2,cr*SCr*;S 
PC(6);cr* 

3290 LOCATE #2,3,3*PRINT 42,cr*;SPC(l 
);cr*;SPC(3);cp*;SPC(3)|cq*jcq*;SPC(l 
>;cq*scq*;cq* 

3300 LOCATE 42,6,5:PRINT 42,cr*;SPC(5 
);cq*;SPC(3);ce*;SPC(l);cq*;cq* 

3310 LOCATE 42,10,6:PRINT 42,cr*;SPC< 
6);cr* 

3320 LOCATE 42,4,7sPRINT 42,ce*;SPC<7 
) ;ce* 

3330 LOCATE #2,18,SsPRINT #2,cp* 

3340 LOCATE 42,3,9:PRINT #2,ce*jSPC(2 
>;cp*;SPC(2);ce»;SPC(6);cp* 

3350 RETURN 

3360 REM pantalla 5 

3370 LOCATE 1,24:PEN 10:PRINT STRING* 

(20.127) :LOCATE 1,24:PRINT CHR*(22)+C 
HR*(1)+CHR*(15)+CHR*(8)+STRING*(20,12 
6)+CHR*(22)+CHR*(O) 

3380 LOCATE 1,25:PEN 10:PRINT STRING* 

(20.127) ; 

3390 ar=12:bol=20:m<ar,bol)=lsm(ar,bo 
1-1)=1:m(ar,bol-2)=1:LOCATE ar+1,bol: 
PRINT cf* 

3400 ma-6:ta=24:m(ma,ta)=4:ro(ma+1 ,ta) 
=4:m(ma+2,ta)=4:m(ma+3,ta)=4:LOCATE m 
a,ta:PEN 8:PRINT STRING*(4,222) 

3410 al =22:ho=16:yo=24s m(ho,yo)-2*LOC 
ATE ho+l,vo 

3420 ban=l4:ker=24sm(ban,ker)=3*m (ban 
+1,ker)=3:LOCATE ban,ker:PEN 4:PRINT 
STRING*(2,127) 

3430 LOCATE 42,2,2:PRINT42,cp*;CHR*Cl 
84);SPC(1);STRING*(14,222) 

3440 LOCATE 42,2,3:PRINT42,SPC(2);CHR 
*( 222 ) 


3450 LOCATE 42,19,4:PRINT42,cp*; 

3460 LOCATE 42,1,5:PRINT42,cq*;SPC(1) 
;cq*:sPEN 42,8:PRINT42,CHR*(222);SPC< 
14);:PRINT42,CHR*(222) 

3470 LOCATE 42,5,6:PRINT42,STRING*(14 
.222) 

3480 LOCATE 42,8,7:PRINT42,CHR*<184); 
SPC(7);CHR*(184);SPC(1);CHR*(184) 

3490 LOCATE 42,3,8:PRINT42,CHR*<184) ; 
SPC(6);CHR*(222) 

3500 LOCATE 42,2,9:PRINT42,cf*;CHR*C1 
0);CHR*(10);SPC(1);CHR*(222);SPC <1);r 
p*;SPC(1);CHR*(184);SPC(3);cp*;cp*;cp 
*; cp*; CHR*(184);CHR*(222);SPC(1);cf* 
3510 LOCATE 42,5,3:FEN 42,6:PRINT42,S 
TRING*(14,143):LOCATE #2,5,4:PRINT42, 
STRING*(14,143)sLOCATE 42,5,5:PRINT42 
,STRING*(14,143) 

3520 RETURN 

3530 REM pantalla 6 

3540 PEN 10:LOCATE 16,20:PRINT CHR*(2 
25):LOCATE 17,20:PRINT STRING*(4,127) 
:LOCATE 17,20:PRINT CHR*(22)+CHR*(1)+ 
CHR*(15)+CHR*(8)+STRING*(4,126)+CHR*( 
22)+CHR*(O):PEN 10:LOCATE 15,21:PRINT 
CHR*(225):LOCATE 16,21:PRINT STRING* 

(5,127) 

3550 LOCATE 14,22:PRINT CHR*(225):LOC 
ATE 15,22:PRINT STRING*(6,127):LOCATE 
13,23:PRINT CHR*(225)sLOCATE 14,23:P 
RINT STRING*(7,127):LOCATE 1,24:PRINT 
STRING*(20,127) 

3560 LOCATE 1,24SPRINT CHR*(22)+CHR*( 
1)+CHR*(15)+CHR*(8)+STRING*(12,126)+C 
HR*(22)+CHR*(O):PEN 10:LOCATE 1,25:PR 


Serie 


INT STRING*(20,127); 

3570 al=22:ho=17:yo=20:m(ho,yo)=2:LOC 
ATE ho+l,yo 

3580 m(15,19)=5:m(14,20)=5sm(l3,21)“5 
:m(12,22)=5:m<ll, 23)=5: m(15,20)=5: m(1 
2,23)=5:m(13,22)=5:m(14,21)*5 

3590 ar=5:bol=18:m(ar,bol>»Iim(ar,bol 
-1) = 1smfar.bol—2) = lsl OCATE ar + l.boltP 
RINT cf*:LOCATE (ar+6),bol:PRINT cf*: 

(ar +5) ,boI ) = l:m( (ar+5), (bol-1) > = 1:m 
((ar+5),(boI-2))=1 :m <(ar+5),(bol+1)) 
=1 

3600 ni( (ar + 11 > , (bol-1) )=1:m( (ar + 11) , 
(bol-2))=1:LOCATE (ar+12),(bol-2):PRI 
NT cf* 

3610 ma=6tta=24sm(ma,ta)=4:m(ma+1,ta) 
=4:m(ma+2,ta)=4:m(ma+3,ta)=4:LOCATE m 
a,ta:PEN B:PRINT STRING*(4,222) 

3620 PEN 42,8:LOCATE #2,1,1 SPRINT 42, 
STRING*(12,193):FOR ns= 2 TO B:LOCATE 
42,1.ns:PRINT 42,CHR*(194);:NEXT:FDR 
ns= l TO B:LOCATE 42,13,ns:PRINT 42, 
CHR*(194):NEXT:LOCATE 42,1,9:PRINT 42 
.STRING*(12,193) 


3630 LOCATE 42,2,4:PRINT 42,cr*;cp*;c 
r*;cp*;cr*:STRING*(3,32);cr*;cp*;cr*; 
:LOCATE 42, 2, 7:PRINT 42,cr*;cp*;cr*}c 
p*;cr*;STRING* <3,32);cr*;cp*;cr*;:LDC 
ATE 42,13,6:PRINT 42,cd4; 

3640 LOCATE 42,14,2:PRINT 42,cp*;" 
CHR* (222); cp*;cq*;cq*;cq*;: LOCATE 42, 
14.4:PP INT 42, cp*;cq*;ce*j: LOCATE 42, 
19.5:PRINT 42’CHR* (222) sLOCATE 42,14, 
8: PRINT 4?,cp*;cq*,cr*;cq*;cq*; " ";cq 
*: 

3650 FOR jj= 1 TO 360 STEP 2: DEG: PLOT 
240, 260 ,6 : DRAW 240+35*SIN(j j ),260+ 25 
♦COSC jj) : NEXT: FOR jj= 1 TO 360 STEP 2 
:MOVE 740 ,260:PLOT 240+37*SIN(ji),260 
+77*C0S< jj) ,9;NEXT:LOCATE 42,B,5:PEN 
42,2:PRINT 42,CHR* (22); CHR* (1) ;CHR*( 1 
95); CHR* (22) s CHR* (O) : 

3660 RETURN 



no reahcen el trabo/o duro, M H. AMS- 


TRAD lo hoce por ti. Todos los hslados que incluyan 
esle logotipo se encventran o to disposition en un cas¬ 
sette mensuol, solicitanoslo 
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INFOBYTES 

Frazo limpio 




bien existe en el mercado 
una amplia variedad de «plotters» 
o trazadores graficos, a la hora 
de la verdad son muy pocos los 


A1 loro 


que funcionan en la gama 
Amstrad CPC, debido a la falta 
del octavo bit en su conector 
«Centronic» o paralelo. El que 
presentamos en estas paginas es 
obra de la casa alemana «Fisher 
Technick» y esta disenado para 
funcionar en los CPC sin ningun 
problema. Su manejo es muy 
sencillo y permite la sustitucion 
de su rotulador por otros de 
diferentes colores. Dc su 
distribution en exclusiva en 
,Espana se encarga Master 
Computer: Plaza de Cristo Rey, 3. 
28040 Madrid. Y sera vuestro por 
63.728 ptas. 


D< 


"e todos es sabido que los 
Amstrad CPC, dotados de 
unidad de disco —CPC 
664/6128—, cuentan con la 
alternativa de almacenamiento de 
cintas de cassette. De este modo 
resultara mas economico el uso 
de software comercial en este 
medio, por el bajo costo de su 
soporte. 

Aunque es posible utilizar 
un aparato de cassette 
domestico de 
audio para 
esta utilization, 
resultara mas 
conveniente por 
su mayor 
fiabilidad, el uso 
de un cassette 
especflico para 
ordenador que, 
entre otras cosas, 
reproducira y 
grabara la serial de 
audio del ordenador 
en su forma natural 
onda cuadrada, 
evitando la 
suavizacion de la 


A, 


onda producida por los aparatos 
convencionales de audio. En la 
foto podeis ver el Dynadata 
Cornpucorder que cumple lo ya 
expuesto, y que encontrareis en 
Micro Ware: Clara del Rey, 50. 
28002 Madrid. A1 precio de 7.950 
ptas. 


mstrad Consumer 
Electronics parece que se esta 
dando cuenta de que no se puede 
tomar nada en serio despues de 
lanzar el PCW como ordenador 
de gestion. Asf lo demuestra la, 
cada vez mas, amplia variedad 
de software del tipo arcade que 
existe para este micro. Por su 
concepcion original, el PCW 
adolece de un conector joystick 
para acoplarle este periferico y 
dar un respiro al sufrido teclado. 
El problema, lo soluciono 
primero DK’Tronics con su 
interface de joystick, pero ahora 
nos llega de la mano de Master 
Computer: Plaza de Cristo Rey, 3. 
28040 Madrid. Este equipo «pret 
a-porter» denominado Joycestick, 
listo para jugar, al precio de 
7.500 ptas., que incluye el 
mismo joystick, el interface 
adecuado y por si fuera poco, el 
mftico Colosus Chess en version 
PCW, como demostracion de su 
funcionamiento. 


48 AMSTRAD Semanal 



El juego completo 


































Bytevision 

"Vuelve la digitalization de 
imageries de la mano de Micro 
World: Zurbano , 76. 28010 
Madrid. En esta ocasion traemos 
el Vidij un video digitalizador no 
solo apto para aplicaciones 
profesionales de montajes de 
video sobre los ordenadores 
Amstrad CPC, sino ademas, 
para los aficionados que 
encontraran en el un dispositivo 
con infinidad de posibilidades 
creativas. Para su funcionamiento 
sera necesario utilizar como 
fuente de imagen una camara de 
video, o un rnismo video cassette 
dotado de una salida de video 
compuesto sin modular (no RF). 
La serial es digitalizada por el 
interface y almacenada en un 
buffer de 16 K para su 
visualization en la pantalla del 
monitor procesado por el 
software que se incluye en el 

PCW poliglota 

Casi con toda seguridad 
podrfam s estar de acuerdo en 
que la impresora que utiliza el 
Amstrad PCW es demasiado 
lenta y ademas, no da option a 
utilizar otra distinta. Para paliar 
este problema, la misma casa 
Amstrad comercializa este 
interface RS 232-Centronics 
conectable al bus de expansion 
trasero del PCW. Con ello, no 
solo se consigue incorporar 
cualquier tipo de impresora al 
ordenador, sino ademas, la 
posibilidad de cornunicarle con 
otros ordenadores o convertirlo 
en terminal no inteligente de 
sistemas mucho mas complejos, 
gracias al protocolo RS-232 C. El 
interface lo podreis obtener por 
20.050 ptas. en cualquier 
distribuidor Amstrad. 




equipo. Permite grabar tanto en 
modo 1 como en el modo 2 y es 
capaz de digitalizar una imagen 
en tan solo 0,3 segundos. En el 
modo 0 digitaliza 16 sombreados 
en color en menos de 4 
segundos. Cuenta con 16 niveles 


indcpcndientes de contraste y 
brillo y es posible el volcado de 
la pantalla a impresora asi 
como la variation de los colores. 
Para los interesados en cl 
equipo, su precio es de 33.500 
ptas. 


Arte moderno 

Si lo que te va es el dibujo, 
no seas antiguo y pasate a los 
lapices opticos. Sobre la pantalla 
de un PCW y con la ayuda de 
este Light Pen de la casa inglesa 
Electric Studio seras capaz de 
obtener creaciones artisticas 
inimaginables. Cuesta tan solo 
19.995 ptas. en Master 
Computer: Plaza de Cristo Rey, 3. 


28040 Madrid. Y permite dibujar 
con distintos tipos de grueso de 
linea, spray, amplia gama de 
tramas, borrar, etc. El dibujo 
realizado podra ser almaccnado 
en disco como fichero o incluso 
volcado en la impresora. Su manejo 
resultara muy sencillo gracias a 
los numerosos menus de ayuda 
en castellano que se exponen en 
forma de ventana dentro de la 
pantalla sin alterar cl dibujo. 
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A8S ATN CDBl CLS COMMON uLrutn. 

EOV EXP GOSUB HEX$ 

LPOS MIDS NOT OPTION PEEK POKE POS 


decisiones y realice su tarea 
Ejemplo: PRINT A,B,C. 
Funciones: terminos que 
pasan e] control a 
microprogramas en lenguaje 
de maquina. Realizan 
«funciones» mas o menos 
complicadas, tales como 
calculos trigonometricos, 
rafces cuadradas, etc., y 
sirven como componente de 
una sentencia: X = TAN(Y) 

PRIN LOG(A). 

Operadores: caracteres que 
generan funciones de 
comparacion o de calculo. 
Ejemplos: coma, dos puntos, 
signo igual, etc. 

En este libro, los mandatos, 
sentencias y funciones 
aparecen en orden alfabetico. 

No asf los operadores que 
aparecen en una section 
particular a] final del libro. 

3. Sfmbolo del disco que 
acompanara a aquellos terminos 
del Basic de diskette. 

4. Comentarios descriptivos de 
introduction sobre el termino, 
indicando que es y que hace. Estos 
Iran seguidos por 5 el formato del 
mandato, sentencia o funcion, asf 
como una breve description y 
explication de cada uno de los 
argumentos del formato. 

6. Programa de ejemplo: 
Permite al usuario introducir un 
programa en el ordenador para ver 
como se emplea un termino. Estos 
programas se muestran tal como 
aparecerfan una vez tecleados, no 
despues de listados. Por ejemplo: 

30 ? “A”. 

Como colofon del libro, se 
ofrecen una serie de tablas de 
utilidad, que el atento lector 
encontrara indispensables. 

Claves para Amstrad 


P5ET READ REM HENUM RESET AND RUN 
SAME SON SIN SPSQR 

•WAP TAP TB 



Ficha tecnica 

Autor: 

Daniel Martin 

Paginas: 

218 

Editorial: 

Elisa, S. A. 

Precio: 

1.750 pts. 


El libro que nos presenta en esta 
ocasion la editorial Elisa, es un 
potente manual en el que 
encontraremos muchas de las 
«daves» para poder trabajar a 
fondo en el interior de nuestro 
Amstrad. No, no nos estamos 
refiriendo al trabajo con 
destornillador, que dejamos a los 
aficionados al hardware. Se trata 
de aprender como aprovechar al 
maximo todas las posibilidades que 
se esconden bajo los circuitos del 
Amstrad, pero desde el teclado. 

El libro consta de siete capftulos, 
un anexo y un fndice alfabetico 
que nos ayudara a movernos 
rapidamente, a traves de las 218 
paginas del libro. 

Los capftulos en los que Daniel 
Martin, autor del libro, ha 
estructurado el enorme campo que 
la obra intenta abarcar, son: Basic, 
lenguaje Maquina, software 
interno, trucos y astucias, y 
conectores y conexiones. 

Una de las secciones mas 
importantes que el libro 
contempla, es la de software 
interno. En este capftulo, se nos 
muestran una buena serie de 
rutinas del sistema. Este hecho 
supone un nuevo avance por 
desvelar los secretos que se 
esconden en la Rom superior e 
inferior de los CPC. 

En este mismo artfculo se 
recogen una buena parte de las 
variables del sistema, hasta ahora 
tambien desconocidas. 

Por otro lado, la parte dedicada 
al Basic, menos de 20 paginas, 
dice poco mas de lo que puede 
encontrarse en el manual de 
cualquiera de los PCP. 



Ficha tecnica 
Autor: David A. Lien 

Paginas: 228 
Editorial: Elisa, S. A. 

2.100 pts. 

Es este un libro que debiera 
encontrarse en las bibliotecas de 
todas aquellas personas que 
piensen en adquirir un Amstrad 
PC. 

La razon es muy simple. El 
Gem Basic de .Locomotive 
Software, incluido con cada 
Amstrad PC, es, sin duda, una de 
las mejores implementaciones del 
lenguaje que se han visto. No 
obstante, adolece del grave 
inconveniente de no ser estandar. 
En el campo del Basic para PCs, 
el que reina indiscutido es el 
BasicA de IBM, y es el que usted 
tendra que usar para desarrollar 
cualquier aplicacion compatible 
IBM. De esto justamente se ocupa 
este libro. 

La informacion proporcionada 
de cada orden es la siguiente: 

1. El termino en si mismo: Es 
un termino Realizable en 
programas escritos en Basic o 
empleado para controlar dichos 
programas. 

2. Categoria del termino: Los 
terminos del Basic se dividen 

en cuatro categorfas: 

Mandatos: palabras que 
dicen al ordenador que 
ejecute una accion mmediata 
con un programa, por 
ejemplo RUN, LIST, etc. 

Todos los mandatos pueden 
formar parte de un programa 
o emplearse como sentencias. 
Sentencias: terminos que 
aparecen en los programas y 
contienen las instrucciones 
detalladas para que el 
ordenador tome sus 

Diccionario 

del IBM BASIC 

Fncklopedia del lenguaje BASIC 
pare IBM PC 






































SUSCRIBETE 


FOR IMASO 


Y PASM SOLO 


sums. 



Esta es la oferta del ano, 
todo un ano de AMSTRAD 
Semanal por solo 
6.175 ptas. 50 numeros 
que te salen a un precio 
increible: 123 ptas. cada 
uno. 





Almate3,500pta&:iin35%. 


Aprovechate. Una oferta 
asi solo sepresenta una 
vez al ano. 


(oferta valida solo para Espana. 
hasta el 28 de febrero de 1987). 
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